bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -04:00
Code Issues Projects Releases Wiki Activity

Fixed errors that occurred when a non-existent file would trip up the

Browse Source 
stricter requirements for the newer perl 5.8.
This commit is contained in:
freesource 2005-01-05 21:50:59 +00:00
parent 27c15ccf9f
commit a16a8c79c5
1 changed files with 49 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bin/imswim
View File

@ -52,7 +52,7 @@ line.
print STDERR "swim: imswim requires arguments, see program for instructions\n";
exit;
}
else {
else {
$| = 1; my $x = 1;
open(FILEDIR, ">$ARGV[1]/filedir.deb")
or warn "could not create filedir.deb\n";
@ -60,6 +60,7 @@ line.
while (<TRANSFER>) {
chomp;
my @the = split(/_/, $_);
if (-e "$ARGV[0]/$the[0].list") {
open (LIST, "$ARGV[0]/$the[0].list")
or warn "could not file *list";
chomp;
@ -98,8 +99,9 @@ line.
}
$count = 1;
print FILEDIR "$_ -> $the[0]_$the[1]\n";
} # if *list exists
} # foreach @count
} # while TRANSFER
close(TRANSFER);
close(FILEDIR);
} # else
} # else