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

packagename-conf.md5sums is created in default_directory/info

Browse Source
This commit is contained in:
freesource 2001-10-13 00:04:50 +00:00
parent 384a90a757
commit 948c04b550
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SWIM/File.pm
View File

@ -621,7 +621,7 @@ sub make_conf {
if (conf(\%commands) ne 0) { if (conf(\%commands) ne 0) {
$conf = conf(\%commands); $conf = conf(\%commands);
@conf = split(/\n/, $conf); @conf = split(/\n/, $conf);
open(PACKCONF,">$parent$base/info/$orig_argument-conf.md5sums"); open(PACKCONF,">$main::home$parent$base/info/$orig_argument-conf.md5sums");
foreach (@conf) { foreach (@conf) {
$_ =~ m,( \/)(.*$),; $_ =~ m,( \/)(.*$),;
($dir, $m5) = split(/ /, $2, 2); ($dir, $m5) = split(/ /, $2, 2);
@ -630,7 +630,7 @@ sub make_conf {
} }
close(PACKCONF); close(PACKCONF);
$md5sums_conf = $md5sums_conf =
"$parent$base/info/$orig_argument-conf.md5sums"; "$main::home$parent$base/info/$orig_argument-conf.md5sums";
return $md5sums_conf; return $md5sums_conf;
} }
else { else {