projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added 0x8e to the list of banned characters
[spider.git]
/
perl
/
Filter.pm
diff --git
a/perl/Filter.pm
b/perl/Filter.pm
index 5947b856f15cff628b458091ae440e81dcb99062..00ee6adb15a0ef8be4f7ca43110e201aafb7d2e2 100644
(file)
--- a/
perl/Filter.pm
+++ b/
perl/Filter.pm
@@
-219,10
+219,13
@@
sub write
{
my $self = shift;
my $sort = $self->{sort};
{
my $self = shift;
my $sort = $self->{sort};
- my $
fn
= $self->{name};
+ my $
name
= $self->{name};
my $dir = "$filterbasefn/$sort";
my $dir = "$filterbasefn/$sort";
+ my $fn = "$dir/$name";
+
mkdir $dir, 0775 unless -e $dir;
mkdir $dir, 0775 unless -e $dir;
- my $fh = new IO::File ">$dir/$fn" or return "$dir/$fn $!";
+ rename $fn, "$fn.o" if -e $fn;
+ $fh = new IO::File ">$fn";
if ($fh) {
my $dd = new Data::Dumper([ $self ]);
$dd->Indent(1);
if ($fh) {
my $dd = new Data::Dumper([ $self ]);
$dd->Indent(1);
@@
-230,6
+233,9
@@
sub write
$dd->Quotekeys($] < 5.005 ? 1 : 0);
$fh->print($dd->Dumpxs);
$fh->close;
$dd->Quotekeys($] < 5.005 ? 1 : 0);
$fh->print($dd->Dumpxs);
$fh->close;
+ } else {
+ rename "$fn.o", $fn if -e "$fn.o";
+ return "$fn $!";
}
return undef;
}
}
return undef;
}