# # # To apply this patch: # STEP 1: Chdir to the source directory. # STEP 2: Run the 'applypatch' program with this patch file as input. # # If you do not have 'applypatch', it is part of the 'makepatch' package # that you can fetch from the Comprehensive Perl Archive Network: # http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz # In the above URL, 'x' should be 2 or higher. # # To apply this patch without the use of 'applypatch': # STEP 1: Chdir to the source directory. # STEP 2: Run the 'patch' program with this file as input. # #### End of Preamble #### #### Patch data follows #### diff -up '../../build/IO-Zlib-1.07-rquoLV/Zlib.pm' 'Zlib.pm' Index: ./Zlib.pm --- ./Zlib.pm Sat Jul 28 01:06:54 2007 +++ ./Zlib.pm Sun Oct 28 23:40:20 2007 @@ -293,7 +293,15 @@ use strict; use vars qw($VERSION $AUTOLOAD @ISA); use Carp; -use Fcntl qw(SEEK_SET); +BEGIN { + # try hard to achieve 5.005 compatibility: + if ($] < 5.006 || !eval q{use Fcntl qw(SEEK_SET); 1;}) { + eval q{use constant SEEK_SET => 0;}; + if ($@) { + die "Could not set SEEK_SET constant: $@"; + } + } +} my $has_Compress_Zlib; my $aliased; #### End of Patch data #### #### ApplyPatch data follows #### # Data version : 1.0 # Date generated : Sun Oct 28 23:42:11 2007 # Generated by : makepatch 2.03 # Recurse directories : Yes # Excluded files : (\A|/).*\~\Z # (\A|/).*\.a\Z # (\A|/).*\.bak\Z # (\A|/).*\.BAK\Z # (\A|/).*\.elc\Z # (\A|/).*\.exe\Z # (\A|/).*\.gz\Z # (\A|/).*\.ln\Z # (\A|/).*\.o\Z # (\A|/).*\.obj\Z # (\A|/).*\.olb\Z # (\A|/).*\.old\Z # (\A|/).*\.orig\Z # (\A|/).*\.rej\Z # (\A|/).*\.so\Z # (\A|/).*\.Z\Z # (\A|/)\.del\-.*\Z # (\A|/)\.make\.state\Z # (\A|/)\.nse_depinfo\Z # (\A|/)core\Z # (\A|/)tags\Z # (\A|/)TAGS\Z # p 'Zlib.pm' 15074 1193611220 0100644 #### End of ApplyPatch data #### #### End of Patch kit [created: Sun Oct 28 23:42:11 2007] #### #### Patch checksum: 55 1785 41787 #### #### Checksum: 73 2409 27793 ####