Ticket #1316: patch-Wx-Main.diff

Padre/lib/Padre/Wx/Main.pm

@@ -3886 +3886 @@
         }
     }
 
+    
     my $document = Padre::Document->new( filename => $file ) or return;
     $file ||= ''; # to avoid warnings
     if ( $document->errstr ) {
@@ -4072 +4073 @@
     unless (@files) {
         my $document = $current->document;
         push @files, $document->guess_filename_to_open($text);
+        unless (@files) {
+                my $text_shortened = $text;
+                $text_shortened =~ s{::[^\:]+$}{};
+                push @files, $document->guess_filename_to_open($text_shortened);
+            
+        }
     }
 
     unless (@files) {