|
From: Mojo N. <moj...@us...> - 2004-08-18 03:51:36
|
Update of /cvsroot/sprawler/sprawler/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11522/lib Modified Files: Sprawler.pm Log Message: It was simply a globablly scope variable $dir. Locally scoping it fixed it. Mojo Index: Sprawler.pm =================================================================== RCS file: /cvsroot/sprawler/sprawler/lib/Sprawler.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Sprawler.pm 18 Aug 2004 03:41:37 -0000 1.10 --- Sprawler.pm 18 Aug 2004 03:51:25 -0000 1.11 *************** *** 82,90 **** my $self=shift; my $path=shift; - if (! -e "$path") { foreach my $d (split(/\//,$path)) { ! $dir.=$d."/"; ! #print STDERR "DIR $dir"; if (! -e "$dir") { mkdir("$dir") --- 82,88 ---- my $self=shift; my $path=shift; if (! -e "$path") { foreach my $d (split(/\//,$path)) { ! my $dir.=$d."/"; if (! -e "$dir") { mkdir("$dir") *************** *** 101,112 **** my $timestamp = scalar localtime; chomp($timestamp); - #print STDERR "LOG FILE $logfile\n"; if($self->{LOGFILE}) { $logfile=$self->{LOGFILE}; my $path=$logfile; $path=~s/(.*)\/(.*)$/$1/; - #print STDERR "PATH: $path\n"; - - $self->mkrdir($path); --- 99,106 ---- *************** *** 123,127 **** $self->{LOGFILE}=$1; } ! open(LOG,">> $logfile") or die "ERROR $!\n"; print LOG "$timestamp $string"; --- 117,121 ---- $self->{LOGFILE}=$1; } ! open(LOG,">> $logfile") or die "ERROR $logfile $!\n"; print LOG "$timestamp $string"; |