diff options
| author | skv <skv@FreeBSD.org> | 2003-06-02 18:00:07 +0800 |
|---|---|---|
| committer | skv <skv@FreeBSD.org> | 2003-06-02 18:00:07 +0800 |
| commit | 5edc50fd99b011266039423000b6d179f3255529 (patch) | |
| tree | 341dc7fa3011647e6c6d6a0d1afe82fc357f5b30 /devel | |
| parent | 83102e2c6b1a54487e3fc1f88149806dd03a3994 (diff) | |
| download | freebsd-ports-gnome-5edc50fd99b011266039423000b6d179f3255529.tar.gz freebsd-ports-gnome-5edc50fd99b011266039423000b6d179f3255529.tar.zst freebsd-ports-gnome-5edc50fd99b011266039423000b6d179f3255529.zip | |
Fix module - broken on perl 5.00503
Pointed by: Mathieu Arnold <mat@mat.cc>
Diffstat (limited to 'devel')
| -rw-r--r-- | devel/p5-Data-TemporaryBag/Makefile | 4 | ||||
| -rw-r--r-- | devel/p5-Data-TemporaryBag/files/500503-TemporaryBag.pm | 31 |
2 files changed, 32 insertions, 3 deletions
diff --git a/devel/p5-Data-TemporaryBag/Makefile b/devel/p5-Data-TemporaryBag/Makefile index 220864b57472..1be67366fb5d 100644 --- a/devel/p5-Data-TemporaryBag/Makefile +++ b/devel/p5-Data-TemporaryBag/Makefile @@ -25,9 +25,7 @@ MAN3= Data::TemporaryBag.3 .include <bsd.port.pre.mk> .if ${PERL_LEVEL} < 500600 -post-patch: - @${PERL} -pi.orig -e 'if($$.==17){s/^our \(/use vars qw(/;s/,//g}' \ - ${WRKSRC}/TemporaryBag.pm +EXTRA_PATCHES= ${PATCHDIR}/500503-TemporaryBag.pm .endif .include <bsd.port.post.mk> 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; |