Fix module - broken on perl 5.00503

Pointed by:	Mathieu Arnold <mat@mat.cc>

1 files changed, 31 insertions, 0 deletions

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;