Changeset 10606 for trunk/Padre/lib/Padre/Document/Perl.pm

Timestamp:

02/07/10 11:19:10 (2 years ago)

Author:

kthakore

Message:

Add a fix for ticket #845. The problem was that when padre is called like so 'padre somedir/file.pl'. The resulting Document object had filename = somedir/file.pl and projectdir = somdir. So when we try to run the code the command created chdir in get_command once to projectdir and then tries to run somedir/file.pl. So it crashes by try to chdir twice in somedir then run file. To fix this I made it check before chdir to see if the somedir exists. Then I also see if Document->{filename} has a \|\/\ in it and if it does split and take the last element.

File:

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

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

@@ -319 +319 @@
     my $dir = File::Basename::dirname($filename);
     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}