From 7eae64cf3fa8993c827a74c7a8ca9ca7f3e5024e Mon Sep 17 00:00:00 2001 From: Sergey Skvortsov Date: Mon, 2 Jun 2003 10:00:07 +0000 Subject: Fix module - broken on perl 5.00503 Pointed by: Mathieu Arnold --- .../files/500503-TemporaryBag.pm | 31 ++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 devel/p5-Data-TemporaryBag/files/500503-TemporaryBag.pm (limited to 'devel/p5-Data-TemporaryBag/files') diff --git a/devel/p5-Data-TemporaryBag/files/500503-TemporaryBag.pm b/devel/p5-Data-TemporaryBag/files/500503-TemporaryBag.pm new file mode 100644 index 000000000000..18b9ad2c7579 --- /dev/null +++ b/devel/p5-Data-TemporaryBag/files/500503-TemporaryBag.pm @@ -0,0 +1,31 @@ +--- TemporaryBag.pm.orig Sun Nov 10 17:33:03 2002 ++++ TemporaryBag.pm Fri May 23 13:00:03 2003 +@@ -2,7 +2,10 @@ + + use strict; + +-use Fcntl qw/:DEFAULT :seek/; ++use Fcntl qw/:DEFAULT/; ++use constant SEEK_SET => 0; ++use constant SEEK_END => 2; ++use Symbol; + use Carp; + use File::Temp ':mktemp'; + +@@ -14,7 +17,7 @@ + use constant RECENTNESS => 4; + use constant FINGERPRINT => 4; + +-our ($VERSION, $Threshold, $TempPath, $MaxOpen); ++use vars qw($VERSION $Threshold $TempPath $MaxOpen); + + $VERSION = '0.06'; + +@@ -243,6 +246,7 @@ + } + if (defined ($fn = $self->[FILENAME])) { + croak "TemporaryBag object seems to be collapsed " if (!-e $fn) or (!-f _); ++ $fh=gensym; + sysopen($fh, $fn, O_RDWR) or croak "TemporaryBag object seems to be collapsed OP"; + croak "TemporaryBag object seems to be collapsed " if (-l $fn); + binmode $fh; -- cgit v1.2.3