/[cvs]/nfo/perl/scripts/shortcuts/cp_deep
ViewVC logotype

Diff of /nfo/perl/scripts/shortcuts/cp_deep

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

revision 1.1 by root, Tue Jan 28 11:03:30 2003 UTC revision 1.2 by bd, Sun Nov 7 03:07:31 2004 UTC
# Line 30  print Dumper($settings), "\n" if $debug; Line 30  print Dumper($settings), "\n" if $debug;
30  my $cp_arg = '';  my $cp_arg = '';
31  $cp_arg .= '--symbolic-link ' if $settings->{symlink};  $cp_arg .= '--symbolic-link ' if $settings->{symlink};
32  $cp_arg .= '--remove-destination ' if $settings->{force};  $cp_arg .= '--remove-destination ' if $settings->{force};
33    $cp_arg .= '--recursive ' if $settings->{recursive};
34    
35  # run it  # run it
36  foreach my $source (@{$settings->{source}}) {  foreach my $source (@{$settings->{source}}) {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed