| Subject: | [PATCH] to make module running under 5.005_05 |
The attached patch just changes a few spots with "mkdir $something" to
"mkdir $something, 0777" which is necessary by older perls. It should
not change anything for newer perls as 0777 is the default mask.
Regards,
Slaven
| Subject: | File-Copy-Recursive-5.5.5.patch |
#
#
# 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/File-Copy-Recursive-0.35-x6E8FI/Recursive.pm' 'File-Copy-Recursive/Recursive.pm'
Index: ./Recursive.pm
--- ./Recursive.pm Mon Aug 27 23:19:23 2007
+++ ./Recursive.pm Wed Oct 3 23:14:21 2007
@@ -191,7 +191,7 @@ sub dircopy {
my ($str,$end,$buf) = @_;
$filen++ if $end eq $baseend;
$dirn++ if $end eq $baseend;
- mkdir $end or return if !-d $end;
+ mkdir $end, 0777 or return if !-d $end;
chmod scalar((stat($str))[2]), $end if $KeepMode;
if($MaxDepth && $MaxDepth =~ m/^\d+$/ && $level >= $MaxDepth) {
return ($filen,$dirn,$level) if wantarray;
@@ -262,8 +262,8 @@ sub pathmk {
$zer = 1;
}
for($zer..$#parts) {
- mkdir $pth or return if !-d $pth && !$nofatal;
- mkdir $pth if !-d $pth && $nofatal;
+ mkdir $pth, 0777 or return if !-d $pth && !$nofatal;
+ mkdir $pth, 0777 if !-d $pth && $nofatal;
$pth = File::Spec->catdir($pth, $parts[$_ + 1]) unless $_ == $#parts;
}
1;
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Wed Oct 3 23:15:05 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 'Recursive.pm' 20364 1191446061 0100644
#### End of ApplyPatch data ####
#### End of Patch kit [created: Wed Oct 3 23:15:05 2007] ####
#### Patch checksum: 58 2248 9312 ####
#### Checksum: 76 2871 60791 ####