Ticket #1316: patch-Wx-Main.diff

File patch-Wx-Main.diff, 706 bytes (added by mj41, 3 years ago)
  • Padre/lib/Padre/Wx/Main.pm

     
    38863886        } 
    38873887    } 
    38883888 
     3889     
    38893890    my $document = Padre::Document->new( filename => $file ) or return; 
    38903891    $file ||= ''; # to avoid warnings 
    38913892    if ( $document->errstr ) { 
     
    40724073    unless (@files) { 
    40734074        my $document = $current->document; 
    40744075        push @files, $document->guess_filename_to_open($text); 
     4076        unless (@files) { 
     4077                my $text_shortened = $text; 
     4078                $text_shortened =~ s{::[^\:]+$}{}; 
     4079                push @files, $document->guess_filename_to_open($text_shortened); 
     4080             
     4081        } 
    40754082    } 
    40764083 
    40774084    unless (@files) {