/[pxelator]/lib/PXElator/file.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/file.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 291 by dpavlin, Wed Aug 26 08:59:50 2009 UTC revision 292 by dpavlin, Wed Aug 26 09:06:10 2009 UTC
# Line 77  sub copy_once { Line 77  sub copy_once {
77          die "no destination" unless $to;          die "no destination" unless $to;
78          return if -e $to;          return if -e $to;
79          mkpath $to;          mkpath $to;
80          carp "# copy_once $from => $to";          my $perm = (stat $from)[2];
81            carp "# copy_once $from => $to $perm";
82          write_file $to, read_file($from);          write_file $to, read_file($from);
83            chmod $perm, $to;
84  }  }
85    
86  1;  1;
Legend:
Removed from v.291  
changed lines
  Added in v.292
  ViewVC Help
Powered by ViewVC 1.1.26