Deprecate shellwords.pl with a warning

[p5sagit/p5-mst-13.2.git] / lib / autodie / t / flock.t

diff --git a/lib/autodie/t/flock.t b/lib/autodie/t/flock.t
index 8b2a168..a7550ba 100755 (executable)
--- a/lib/autodie/t/flock.t
+++ b/lib/autodie/t/flock.t
@@ -23,7 +23,7 @@ if ($@) {
     plan skip_all => "Cannot lock this test on this system.";
 }
 
-my $flock_return = flock($self_fh, LOCK_EX | LOCK_NB);
+my $flock_return = eval { flock($self_fh, LOCK_EX | LOCK_NB); };
 
 if (not $flock_return) {
     plan skip_all => "flock on my own test not supported on this system.";