This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor syslfs.t and lfs.t to call bye() directly from explain() when skipping.
[perl5.git] / ext / Fcntl / t / syslfs.t
index 244ff60..c6252cc 100644 (file)
@@ -52,7 +52,10 @@ sub explain {
 #
 EOM
     }
 #
 EOM
     }
-    print "1..0 # Skip: @_\n" if @_;
+    if (@_) {
+       print "1..0 # Skip: @_\n";
+       bye();
+    }
 }
 
 $| = 1;
 }
 
 $| = 1;
@@ -144,7 +147,6 @@ unless (! $r && defined $sysseek && $sysseek == 5_000_000_000) {
     $sysseek = 'undef' unless defined $sysseek;
     explain("seeking past 2GB failed: ",
            $r ? 'signal '.($r & 0x7f) : "$! (sysseek returned $sysseek)");
     $sysseek = 'undef' unless defined $sysseek;
     explain("seeking past 2GB failed: ",
            $r ? 'signal '.($r & 0x7f) : "$! (sysseek returned $sysseek)");
-    bye();
 }
 
 # The syswrite will fail if there are are filesize limitations (process or fs).
 }
 
 # The syswrite will fail if there are are filesize limitations (process or fs).
@@ -162,7 +164,6 @@ unless($syswrite && $close) {
     } else {
        explain("error: $!");
     }
     } else {
        explain("error: $!");
     }
-    bye();
 }
 
 @s = stat($big0);
 }
 
 @s = stat($big0);
@@ -171,7 +172,6 @@ print "# @s\n";
 
 unless ($s[7] == 5_000_000_003) {
     explain("kernel/fs not configured to use large files?");
 
 unless ($s[7] == 5_000_000_003) {
     explain("kernel/fs not configured to use large files?");
-    bye();
 }
 
 sub fail {
 }
 
 sub fail {