Re: Problem compiling Perl 5.14.2 - op/stat.t test 37 failed

You might want to modify the respective test to figure out what ls and Perl disagree on, e.g.

    my $try = sub {  # line 287
        my @c1 = eval qq[\$DEV =~ /^$_[0].*/mg];
        my @c2 = eval qq[grep { $_[1] "/dev/\$_" } \@DEV];

        ### add this
        if ($_[1] eq "-c") {
            my @c = map { /(\S+)$/; $1 } @c1;
            my %diff;
            @diff{@c} = ();
            delete @diff{@c2};
            print "!!: $_\n" for keys %diff;
            exit;
        }
        ###
        
        my $c1 = scalar @c1;
        my $c2 = scalar @c2;
        is($c1, $c2, "ls and $_[1] agreeing on /dev ($c1 $c2)");
    };
[download]

and then contemplate on who is right with respect to whether the reported entry is a "character special" file.

Comment on Re: Problem compiling Perl 5.14.2 - op/stat.t test 37 failed Select or Download Code

Replies are listed 'Best First'.
Re^2: Problem compiling Perl 5.14.2 - op/stat.t test 37 failed by mrthom (Novice) on May 30, 2012 at 12:09 UTC
OK, i ran this, exactly same code as you wrote above and got: `ok 34 - -e ok 35 - -e on unlinked file ok 36 - ls and -b agreeing on /dev (29 29) !!: 0 # Looks like you planned 107 tests but ran 36.` [download] I dont really uderstand these commands, I only want successfully compile this, so sry, but I must ask what now ?? I can provide this info: `[tom@alarmpi perl-5.14.2]$ find /dev/ -type c \| wc -l 232` [download] Read more... (3 kB)	[reply] [d/l] [select]
Re^3: Problem compiling Perl 5.14.2 - op/stat.t test 37 failed by Eliya (Vicar) on May 30, 2012 at 12:36 UTC
The test runs `ls -l /dev 2>/dev/null` (which is different from `find /dev/ -type c` in that it isn't recursive); so check what its output is. Or simply print out `@c1` in the test, and look for which (presumably fake) entry ends with " 0" and starts with a "c". (For example, in my case there is a line `"total 0"` — but as the latter starts with a "t", it doesn't interfere with the test...) In other words, my guess would be this is something silly you need not really worry about, provided it's the only test that fails...	[reply] [d/l] [select]
Re^4: Problem compiling Perl 5.14.2 - op/stat.t test 37 failed by mrthom (Novice) on May 30, 2012 at 12:49 UTC
Hey! THX i found it :D It problem in Czech localized output from this command: `ls -l /dev 2>/dev/null` [download] Output `[tom@alarmpi perl-5.14.2]$ ls -l /dev 2>/dev/null celkem 0 crw------- 1 root root 10, 235 1. led 1970 autofs drwxr-xr-x 2 root root 620 30. kvě 09.59 block drwxr-xr-x 2 root root 60 30. kvě 09.59 bsg` [download] The first line is "celkem" that means total in english and begins with c. So, please correct it and remove the first line from the test and post a patch please :)	[reply] [d/l] [select]


Syntactic Confectionery Delight
	PerlMonks