Select Code to Download

# /opt/perl/bin/perl -V
Summary of my perl5 (revision 5 version 10 subversion 0) configuration
+:
  Platform:
...
    /opt/perl/lib/site_perl/5.10.0/i686-linux-thread-multi
    /opt/perl/lib/site_perl/5.10.0
    .

op/mkdir.........................................................# Fai
+led at op/mkdir.t line 20
#      got '17'
...
Files=1461, Tests=189213, 818 wallclock secs (241.37 cusr + 26.83 csys
+ = 268.20 CPU)
Failed 2/1461 test programs. 3/189213 subtests failed.

ok(mkdir('blurfl',0777));
ok(!mkdir('blurfl',0777));
like($!, qr/cannot move|exist|denied|unknown/i);

use constant E2BIG => $! = 7;
cmp_ok E2BIG, '==', 7;
# This is something like "Arg list too long", but the actual message
# text may vary, so we can't test much better than this.
cmp_ok length(E2BIG), '>', 6;