develooper Front page | perl.perl5.porters | Postings from January 2014

[perl #121104] t/x2p/find2perl.t broken with Busybox

Thread Previous
Francois PERRAD
January 28, 2014 14:45
[perl #121104] t/x2p/find2perl.t broken with Busybox
Message ID:
# New Ticket Created by  Francois PERRAD 
# Please include the string:  [perl #121104]
# in the subject line of all future correspondence about this issue. 
# <URL: >

This is a bug report for perl from,
generated with the help of perlbug 1.40 running under perl 5.19.8.

[Please describe your issue here]

the commit
breaks t/x2p/find2perl.t when the command find(1) is supplied by Busybox.

$ ./perl x2p/find2perl.t
ok 1 - find2perl exists
ok 2 - all files: run findperl
ok 3 - all files: run output script
ok 4 - all files: run find
ok 5 - all files: find2perl matches find
ok 6 - mapping of *: run findperl
ok 7 - mapping of *: run output script
ok 8 - mapping of *: run find
ok 9 - mapping of *: find2perl matches find
ok 10 - -type d: run findperl
ok 11 - -type d: run output script
ok 12 - -type d: got files ok
ok 13 - -type d: find2perl matches expected
ok 14 - -type f: run findperl
ok 15 - -type f: run output script
ok 16 - -type f: run find
ok 17 - -type f: find2perl matches find
ok 18 - -mtime +1: run findperl
ok 19 - -mtime +1: run output script
ok 20 - -mtime +1: got files ok
ok 21 - -mtime +1: find2perl matches expected
ok 22 - -mtime -1: run findperl
ok 23 - -mtime -1: run output script
ok 24 - -mtime -1: run find
ok 25 - -mtime -1: find2perl matches find
ok 26 - -size 10c: run findperl
ok 27 - -size 10c: run output script
ok 28 - -size 10c: got files ok
ok 29 - -size 10c: find2perl matches expected
ok 30 - -links 2: run findperl
ok 31 - -links 2: run output script
find: unrecognized: -links
BusyBox v1.21.1 (2014-01-27 17:48:34 CET) multi-call binary.

Usage: find [PATH]... [OPTIONS] [ACTIONS]

Search for files and perform actions on them.
First failed action stops processing of current file.
Defaults: PATH is current directory, action is '-print'

    -follow        Follow symlinks
    -xdev        Don't descend directories on other filesystems
    -maxdepth N    Descend at most N levels. -maxdepth 0 applies
            actions to command line arguments only
    -mindepth N    Don't act on first N levels
    -depth        Act on directory *after* traversing it

    ( ACTIONS )    Group actions for -o / -a
    ! ACT        Invert ACT's success/failure
    ACT1 [-a] ACT2    If ACT1 fails, stop, else do ACT2
    ACT1 -o ACT2    If ACT1 succeeds, stop, else do ACT2
            Note: -a has higher priority than -o
    -name PATTERN    Match file name (w/o directory name) to PATTERN
    -iname PATTERN    Case insensitive -name
    -path PATTERN    Match path to PATTERN
    -ipath PATTERN    Case insensitive -path
    -regex PATTERN    Match path to regex PATTERN
    -type X        File type is X (one of: f,d,l,b,c,...)
    -perm MASK    At least one mask bit (+MASK), all bits (-MASK),
            or exactly MASK bits are set in file's mode
    -mtime DAYS    mtime is greater than (+N), less than (-N),
            or exactly N days in the past
    -mmin MINS    mtime is greater than (+N), less than (-N),
            or exactly N minutes in the past
    -newer FILE    mtime is more recent than FILE's
    -user NAME/ID    File is owned by given user
    -group NAME/ID    File is owned by given group
    -size N[bck]    File size is N (c:bytes,k:kbytes,b:512 bytes(def.))
            +/-N: file size is bigger/smaller than N
    -prune        If current file is directory, don't descend into it
If none of the following actions is specified, -print is assumed
    -print        Print file name
    -print0        Print file name, NUL terminated
    -exec CMD ARG ;    Run CMD with all instances of {} replaced by
            file name. Fails if CMD exits with nonzero

not ok 32 - -links 2: run find
# Failed test 32 - -links 2: run find at x2p/find2perl.t line 206
ok 33 # skip
ok 34 - [perl \#113054] mapping of ?: run findperl
ok 35 - [perl \#113054] mapping of ?: run output script
ok 36 - [perl \#113054] mapping of ?: run find
ok 37 - [perl \#113054] mapping of ?: find2perl matches find

[Please do not change anything below this line]
Site configuration information for perl 5.19.8:

Configured by fperrad at Mon Jan 27 18:09:12 CET 2014.

Summary of my perl5 (revision 5 version 19 subversion 8) configuration:

    osname=linux, osvers=3.10.7, archname=none-linux-gnueabi
    uname='Linux buildroot 3.10.7'
    config_args='-des -Dusecrosscompile
-D_FILE_OFFSET_BITS=64  -pipe -Os  -Dldflags= -lm -Dlddlflags=-shared
-Duseshrplib -Dprefix=/usr -Dmyhostname=buildroot -Dperladmin=root
-Uoptimize -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=y, bincompat5005=undef
-D_FILE_OFFSET_BITS=64 -pipe -Os
-fno-strict-aliasing -fstack-protector',
    optimize=' ',
-Os --sysroot=/home/fperrad/checkout/BR/build/linaro/host/usr/arm-buildroot-linux-gnueabi/sysroot
-fno-strict-aliasing -fstack-protector'
    ccversion='', gccversion='4.7.3', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
    alignbytes=8, prototype=define
  Linker and Libraries:
ldflags =' -lm --sysroot=/home/fperrad/checkout/BR/build/linaro/host/usr/arm-buildroot-linux-gnueabi/sysroot
    libs=-lnsl -ldl -lm -lcrypt -lutil -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
so=so, useshrplib=true,
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
lddlflags='-shared --sysroot

@INC for perl 5.19.8:

Environment for perl 5.19.8:
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PERL_BADLANG (unset)

Thread Previous Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About