Changeset 10607

Show
Ignore:
Timestamp:
02/07/10 15:56:08 (7 months ago)
Author:
kthakore
Message:

Fixed serious bug that was introduced with last fix. Ticket #845 is opened again. We need to fix where the Document->{file_name} is made

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/Padre/lib/Padre/Document/Perl.pm

    r10606 r10607  
    320320        chdir $dir; 
    321321         
    322         # (Ticket #845) if Padre folder/script.pl is called filename has folder/ in it so we check for that 
    323  
    324         if( $filename =~ /\\|\//) 
    325         { 
    326         my @file_name = split /\\|\//, $filename; 
    327         $filename = $file_name[$#file_name]; 
    328         } 
    329  
    330  
    331  
    332322        return $debug 
    333323                ? qq{"$perl" -Mdiagnostics(-traceonly) $run_args{interpreter} "$filename"$Script_Args}