diff options
author | Steve Peters <steve@fisharerojo.org> | 2007-12-19 17:05:16 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2007-12-19 17:05:16 +0000 |
commit | 8fda732ba35b09fe6fd97b1463e2008d5752e71d (patch) | |
tree | 18fc4c093ab69c98fa1e2f657ed25908bbcf1926 /lib | |
parent | d40f418c0989f97d4d8e048e75204b214b9069ac (diff) | |
download | perl-8fda732ba35b09fe6fd97b1463e2008d5752e71d.tar.gz |
Fix a File::Temp test to deal with new Test::More changes.
p4raw-id: //depot/perl@32657
Diffstat (limited to 'lib')
-rw-r--r-- | lib/File/Temp/t/lock.t | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lib/File/Temp/t/lock.t b/lib/File/Temp/t/lock.t index fae86f2a83..cd62d541d5 100644 --- a/lib/File/Temp/t/lock.t +++ b/lib/File/Temp/t/lock.t @@ -5,14 +5,16 @@ use Test::More; use strict; use Fcntl; -BEGIN {use_ok( "File::Temp" ); } - -# see if we have O_EXLOCK -eval { &Fcntl::O_EXLOCK; }; -if ($@) { - plan skip_all => 'Do not seem to have O_EXLOCK'; -} else { - plan tests => 3; +BEGIN { + # see if we have O_EXLOCK + eval { &Fcntl::O_EXLOCK; }; + if ($@) { + plan skip_all => 'Do not seem to have O_EXLOCK'; + } else { + plan tests => 3; + } + + use_ok( "File::Temp" ); } # Get a tempfile with O_EXLOCK |