Parent Directory | Revision Log | 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |