ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more possible-bug fixes

Browse source
This commit is contained in:
Ward Wouts 2002-01-19 22:19:14 +00:00
parent 669fb5b5b8
commit 4ab58ca073
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mvwrap/mvwrap
View file

@ -53,7 +53,7 @@ sub read_cur_dir {
my (@dir, $filename); my (@dir, $filename);
opendir(DIRHANDLE, ".") or die "couldn't open .: $!"; opendir(DIRHANDLE, ".") or die "couldn't open .: $!";
while ( defined ($filename = readdir(DIRHANDLE)) ) { while ( defined ($filename = readdir(DIRHANDLE)) ) {
unless ($filename eq "." | $filename eq "..") { unless (chomp($filename) eq "." | chomp($filename) eq "..") {
push @dir, "$filename\n"; push @dir, "$filename\n";
} }
} }
@ -220,7 +220,7 @@ sub paranoia {
foreach $ctarget (@$target) { foreach $ctarget (@$target) {
$safe = 0; $safe = 0;
foreach $csource (@$source) { foreach $csource (@$source) {
if ($ctarget eq $csource) { $safe = 1; } if (chomp($ctarget) eq chomp($csource)) { $safe = 1; }
} }
chomp $ctarget; chomp $ctarget;
if (! $safe && -e $ctarget) { die "That would overwrite files\n"; } if (! $safe && -e $ctarget) { die "That would overwrite files\n"; }