Changeset 10607

Timestamp:

02/07/10 15:56:08 (2 years 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

File:

• trunk/Padre/lib/Padre/Document/Perl.pm (modified) (1 diff)

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

@@ -320 +320 @@
     chdir $dir;
     
-    # (Ticket #845) if Padre folder/script.pl is called filename has folder/ in it so we check for that
-
-    if( $filename =~ /\\|\//)
-    {
-    my @file_name = split /\\|\//, $filename;
-    $filename = $file_name[$#file_name];
-    }
-
-
-
     return $debug
         ? qq{"$perl" -Mdiagnostics(-traceonly) $run_args{interpreter} "$filename"$Script_Args}