#
#
# 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 'makepatch-2.00_11/script/applypatch' 'makepatch-2.00_11.patched/script/applypatch'
Index: ./script/applypatch
Prereq: 1.17
--- ./script/applypatch Wed Mar 24 19:33:59 2004
+++ ./script/applypatch Thu Mar 25 14:40:52 2004
@@ -115,7 +115,11 @@ sub copy_input () {
print STDERR ("Validate input.\n") if $verbose;
- while ( <> ) {
+ @ARGV = "-" if !@ARGV;
+ for my $file (@ARGV) {
+ open(FH, $file) or die "Can't open $file: $!";
+ binmode(FH);
+ while ( <FH> ) {
chomp;
if ( /^#### Patch data follows ####/ ) {
print STDERR (": $_\n") if $trace;
@@ -229,6 +233,8 @@ sub copy_input () {
# Copy the line to the temp file.
print $tmpfile ($_);
}
+ close FH;
+ }
# If we saw an ApplyPatch data section, it must be reliable.
if ( $applypatch == 1 ) {
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Thu Mar 25 14:41:31 2004
# Generated by : makepatch 2.00_11*
# 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
# (\A|/)script\/makepatch\Z
# p 'script/applypatch' 17512 1080222052 0100755
#### End of ApplyPatch data ####
#### End of Patch kit [created: Thu Mar 25 14:41:31 2004] ####
#### Patch checksum: 62 2120 616 ####
#### Checksum: 80 2742 52029 ####
