projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
8486af7
)
fix dots
author
minima
<minima>
Tue, 8 Jan 2002 12:33:11 +0000
(12:33 +0000)
committer
minima
<minima>
Tue, 8 Jan 2002 12:33:11 +0000
(12:33 +0000)
cmd/save.pl
patch
|
blob
|
history
diff --git
a/cmd/save.pl
b/cmd/save.pl
index 5a3cacdd87a392c12d1fd4001135a88383e179f0..9bb74dddc914ce585c2826483e63e0cec4621545 100644
(file)
--- a/
cmd/save.pl
+++ b/
cmd/save.pl
@@
-24,9
+24,11
@@
if ($line =~ /-a/) { # append to the file
$app_req = '>>';
}
+$DB::single = 1;
+
my ($fn, $rest) = split /\s+/, $line, 2;
$fn = "$main::root/packclus/$fn" unless $fn =~ m|^/|;
-$fn =~ s/
.
.//g;
+$fn =~ s/
\.\
.//g;
$fn =~ s|/+|/|g;
$fn .= '_' . cldate if $date_req;
$fn .= '_' . ztime if $time_req;