diff options
author | Paul Fenwick <pjf@perltraining.com.au> | 2009-01-02 19:17:32 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2009-01-02 19:17:32 -0600 |
commit | 3776a2029920e2a44859557cfb9ab34f869f7e36 (patch) | |
tree | 7cfc55681e2327744e47611215fc3bf065fd72ad /t | |
parent | 49c38585884a547ae094a6be3f8a37db3018e48d (diff) | |
download | perl-3776a2029920e2a44859557cfb9ab34f869f7e36.tar.gz |
Subject: [PATCH] Update autodie to 1.998
From: Paul Fenwick <pjf@perltraining.com.au>
Date: Sat, 03 Jan 2009 11:32:59 +1100
Message-ID: <495EB23B.6080504@perltraining.com.au>
Diffstat (limited to 't')
-rw-r--r-- | t/lib/autodie/truncate.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/lib/autodie/truncate.t b/t/lib/autodie/truncate.t index c99f500c2a..e69ee32d2e 100644 --- a/t/lib/autodie/truncate.t +++ b/t/lib/autodie/truncate.t @@ -6,13 +6,14 @@ use File::Temp qw(tempfile); use IO::Handle; my $tmpfh = tempfile(); +my $truncate_status; eval { - truncate($tmpfh, 0); + $truncate_status = truncate($tmpfh, 0); }; -if ($@) { - plan skip_all => 'Truncate not implemented on this system'; +if ($@ || !defined($truncate_status)) { + plan skip_all => 'Truncate not implemented or not working on this system'; } plan tests => 3; |