# | Line 35 | Line 35 | sub copydir { | |
---|---|---|
35 | use DirHandle; | |
36 | use File::Copy; | |
37 | ||
38 | < | #print "Copying $src to $dest\n"; |
38 | > | # print "Copying $src to $dest\n"; |
39 | adddir($dest); | |
40 | my $dh=DirHandle->new($src); | |
41 | + | if (defined $dh) { |
42 | my @allfiles=$dh->read(); | |
43 | ||
44 | my $file; | |
# | Line 51 | Line 52 | sub copydir { | |
52 | } | |
53 | } | |
54 | undef $dh; | |
55 | + | } |
56 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |