[Sprawler-commits] sprawler/lib Sprawler.pm,1.10,1.11

[Mojo N. <moj...@us...>]

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";