put back missing my in Filter.pm

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 00ee6adb15a0ef8be4f7ca43110e201aafb7d2e2..3d42fc34bc4fe73e4dd8d84548f2a397ae8a2afa 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -225,7 +225,7 @@ sub write
        
        mkdir $dir, 0775 unless -e $dir; 
     rename $fn, "$fn.o" if -e $fn;
-       $fh = new IO::File ">$fn";
+       my $fh = new IO::File ">$fn";
        if ($fh) {
                my $dd = new Data::Dumper([ $self ]);
                $dd->Indent(1);