# 
# 
# 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 ####