This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In Fcntl's syslfs.t and t/op/lfs.t, eliminate bye().
authorNicholas Clark <nick@ccl4.org>
Tue, 14 Dec 2010 16:12:39 +0000 (16:12 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 14 Dec 2010 16:59:53 +0000 (16:59 +0000)
Its cleanup actions are implicit in the END block, so replace C<warn ...; bye>;
with C<die ...> and other calls of C<bye;> with C<exit 0;>

Also, remove the newlines from the strings passed to die, to make the
diagnostics more useful for locating failures.

ext/Fcntl/t/syslfs.t
t/op/lfs.t

index e5996b3..c914de8 100644 (file)
@@ -22,11 +22,6 @@ our $fail;
 (undef, my $big1) = tempfile(UNLINK => 1);
 (undef, my $big2) = tempfile(UNLINK => 1);
 
-sub bye {
-    close(BIG);
-    exit(0);
-}
-
 my $explained;
 
 sub explain {
@@ -50,7 +45,7 @@ EOM
     }
     if (@_) {
        print "1..0 # Skip: @_\n";
-       bye();
+       exit 0;
     }
 }
 
@@ -61,14 +56,14 @@ print "# checking whether we have sparse files...\n";
 # Known have-nots.
 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
     print "1..0 # Skip: no sparse files in $^O\n";
-    bye();
+    exit 0;
 }
 
 # Known haves that have problems running this test
 # (for example because they do not support sparse files, like UNICOS)
 if ($^O eq 'unicos') {
     print "1..0 # Skip: no sparse files in $^O, unable to test large files\n";
-    bye();
+    exit 0;
 }
 
 # Then try heuristically to deduce whether we have sparse files.
@@ -79,26 +74,26 @@ if ($^O eq 'unicos') {
 # one megabyte blocks...)
 
 sysopen(BIG, $big1, O_WRONLY|O_CREAT|O_TRUNC) or
-    do { warn "sysopen $big1 failed: $!\n"; bye };
+    die "sysopen $big1 failed: $!";
 sysseek(BIG, 1_000_000, SEEK_SET) or
-    do { warn "sysseek $big1 failed: $!\n"; bye };
+    die "sysseek $big1 failed: $!";
 syswrite(BIG, "big") or
-    do { warn "syswrite $big1 failed: $!\n"; bye };
+    die "syswrite $big1 failed: $!";
 close(BIG) or
-    do { warn "close $big1 failed: $!\n"; bye };
+    die "close $big1 failed: $!";
 
 my @s1 = stat($big1);
 
 print "# s1 = @s1\n";
 
 sysopen(BIG, $big2, O_WRONLY|O_CREAT|O_TRUNC) or
-    do { warn "sysopen $big2 failed: $!\n"; bye };
+    die "sysopen $big2 failed: $!";
 sysseek(BIG, 2_000_000, SEEK_SET) or
-    do { warn "sysseek $big2 failed: $!\n"; bye };
+    die "sysseek $big2 failed: $!";
 syswrite(BIG, "big") or
-    do { warn "syswrite $big2 failed: $!\n"; bye };
+    die "syswrite $big2 failed: $!";
 close(BIG) or
-    do { warn "close $big2 failed: $!\n"; bye };
+    die "close $big2 failed: $!";
 
 my @s2 = stat($big2);
 
@@ -108,7 +103,7 @@ unless ($s1[7] == 1_000_003 && $s2[7] == 2_000_003 &&
        $s1[11] == $s2[11] && $s1[12] == $s2[12] &&
        $s1[12] > 0) {
        print "1..0 # Skip: no sparse files?\n";
-       bye;
+       exit 0;
 }
 
 print "# we seem to have sparse files...\n";
@@ -135,7 +130,7 @@ EOF
 
 
 sysopen(BIG, $big0, O_WRONLY|O_CREAT|O_TRUNC) or
-       do { warn "sysopen $big0 failed: $!\n"; bye };
+    die "sysopen $big0 failed: $!";
 my $sysseek = sysseek(BIG, 5_000_000_000, SEEK_SET);
 unless (! $r && defined $sysseek && $sysseek == 5_000_000_000) {
     $sysseek = 'undef' unless defined $sysseek;
@@ -210,7 +205,7 @@ print "ok 3\n";
 fail unless -f $big0;
 print "ok 4\n";
 
-sysopen(BIG, $big0, O_RDONLY) or do { warn "sysopen failed: $!\n"; bye };
+sysopen(BIG, $big0, O_RDONLY) or die "sysopen failed: $!";
 
 offset('sysseek(BIG, 4_500_000_000, SEEK_SET)', 4_500_000_000);
 print "ok 5\n";
@@ -263,8 +258,6 @@ print "ok 17\n";
 
 explain() if $fail;
 
-bye(); # does the necessary cleanup
-
 END {
     # unlink may fail if applied directly to a large file
     # be paranoid about leaving 5 gig files lying around
index cf7a364..62d89a1 100644 (file)
@@ -23,11 +23,6 @@ my $big0 = tempfile();
 my $big1 = tempfile();
 my $big2 = tempfile();
 
-sub bye {
-    close(BIG);
-    exit(0);
-}
-
 my $explained;
 
 sub explain {
@@ -51,7 +46,7 @@ EOM
     }
     if(@_) {
        print "1..0 # Skip: @_\n";
-       bye();
+       exit 0;
     }
 }
 
@@ -62,14 +57,14 @@ print "# checking whether we have sparse files...\n";
 # Known have-nots.
 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
     print "1..0 # Skip: no sparse files in $^O\n";
-    bye();
+    exit 0;
 }
 
 # Known haves that have problems running this test
 # (for example because they do not support sparse files, like UNICOS)
 if ($^O eq 'unicos') {
     print "1..0 # Skip: no sparse files in $^O, unable to test large files\n";
-    bye();
+    exit 0;
 }
 
 # Then try heuristically to deduce whether we have sparse files.
@@ -86,30 +81,30 @@ sub SEEK_END () {2}
 # one megabyte blocks...)
 
 open(BIG, ">$big1") or
-    do { warn "open $big1 failed: $!\n"; bye };
+    die "open $big1 failed: $!";
 binmode(BIG) or
-    do { warn "binmode $big1 failed: $!\n"; bye };
+    die "binmode $big1 failed: $!";
 seek(BIG, 1_000_000, SEEK_SET) or
-    do { warn "seek $big1 failed: $!\n"; bye };
+    die "seek $big1 failed: $!";
 print BIG "big" or
-    do { warn "print $big1 failed: $!\n"; bye };
+    die "print $big1 failed: $!";
 close(BIG) or
-    do { warn "close $big1 failed: $!\n"; bye };
+    die "close $big1 failed: $!";
 
 my @s1 = stat($big1);
 
 print "# s1 = @s1\n";
 
 open(BIG, ">$big2") or
-    do { warn "open $big2 failed: $!\n"; bye };
+    die "open $big2 failed: $!";
 binmode(BIG) or
-    do { warn "binmode $big2 failed: $!\n"; bye };
+    die "binmode $big2 failed: $!";
 seek(BIG, 2_000_000, SEEK_SET) or
-    do { warn "seek $big2 failed: $!\n"; bye };
+    die "seek $big2 failed: $!";
 print BIG "big" or
-    do { warn "print $big2 failed: $!\n"; bye };
+    die "print $big2 failed: $!";
 close(BIG) or
-    do { warn "close $big2 failed: $!\n"; bye };
+    die "close $big2 failed: $!";
 
 my @s2 = stat($big2);
 
@@ -119,7 +114,7 @@ unless ($s1[7] == 1_000_003 && $s2[7] == 2_000_003 &&
        $s1[11] == $s2[11] && $s1[12] == $s2[12] &&
        $s1[12] > 0) {
        print "1..0 # Skip: no sparse files?\n";
-       bye;
+       exit 0;
 }
 
 print "# we seem to have sparse files...\n";
@@ -138,7 +133,7 @@ close \$big or die qq{close $big0: $!};
 exit 0;
 EOF
 
-open(BIG, ">$big0") or do { warn "open failed: $!\n"; bye };
+open(BIG, ">$big0") or die "open failed: $!";
 binmode BIG;
 if ($r or not seek(BIG, 5_000_000_000, SEEK_SET)) {
     my $err = $r ? 'signal '.($r & 0x7f) : $!;
@@ -211,7 +206,7 @@ print "ok 3\n";
 fail unless -f $big0;
 print "ok 4\n";
 
-open(BIG, $big0) or do { warn "open failed: $!\n"; bye };
+open(BIG, $big0) or die "open failed: $!";
 binmode BIG;
 
 fail unless seek(BIG, 4_500_000_000, SEEK_SET);
@@ -265,8 +260,6 @@ print "ok 17\n";
 
 explain() if $fail;
 
-bye(); # does the necessary cleanup
-
 END {
     # unlink may fail if applied directly to a large file
     # be paranoid about leaving 5 gig files lying around