--- nfo/perl/scripts/shortcuts/cp_deep	2003/01/28 11:03:30	1.1
+++ nfo/perl/scripts/shortcuts/cp_deep	2004/11/07 03:07:31	1.2
@@ -30,6 +30,7 @@
 my $cp_arg = '';
 $cp_arg .= '--symbolic-link ' if $settings->{symlink};
 $cp_arg .= '--remove-destination ' if $settings->{force};
+$cp_arg .= '--recursive ' if $settings->{recursive};
 
 # run it
 foreach my $source (@{$settings->{source}}) {