diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-12-13 16:08:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-12-14 16:59:53 +0000 |
| commit | 96dca4d4be66035dc9293a9939950c0986912977 (patch) | |
| tree | 27467082bbcd159c9671c1cae7ef7e42619dea35 /ext | |
| parent | 9a7064eebb5f783e25d58308ab45972ebb3c1a7c (diff) | |
| download | perl-96dca4d4be66035dc9293a9939950c0986912977.tar.gz | |
Check return values in the test programs run by syslfs.t and lfs.t
Also fix a bug introduced in 1c25d394345c1b97, which accidentally neutered the
test program of t/op/lfs.t, causing it to attempt to open an empty file, and
hence do nothing and then always exit with 0.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Fcntl/t/syslfs.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t index f0f1881c1d..129ab970b1 100644 --- a/ext/Fcntl/t/syslfs.t +++ b/ext/Fcntl/t/syslfs.t @@ -127,9 +127,10 @@ unless (-x $perl) { } my $r = system $perl, '-I../lib', '-e', <<'EOF'; use Fcntl qw(/^O_/ /^SEEK_/); -sysopen(BIG, "big", O_WRONLY|O_CREAT|O_TRUNC) or die $!; -my $sysseek = sysseek(BIG, 5_000_000_000, SEEK_SET); -my $syswrite = syswrite(BIG, "big"); +sysopen $big, "big", O_WRONLY|O_CREAT|O_TRUNC or die qq{sysopen big $!}; +sysseek $big, 5_000_000_000, SEEK_SET or die qq{sysseek big $!}; +syswrite $big, "big" or die qq{syswrite big $!}; +close $big or die qq{close big: $!}; exit 0; EOF |