Ticket #475: t.txt

File t.txt, 1.3 KB (added by Sewi, 5 years ago)

Patch for fixing this bug

Line 
1Index: padre/Padre/lib/Padre/Document/Perl.pm
2===================================================================
3--- padre/Padre/lib/Padre/Document/Perl.pm  (Revision 6739)
4+++ padre/Padre/lib/Padre/Document/Perl.pm  (Arbeitskopie)
5@@ -503,7 +503,9 @@
6            while ( defined($tag) ) {
7 
8                # TODO check file scope?
9-               if ( $tag->{kind} eq 'v' ) {
10+               if ( ! defined($tag->{kind})) {
11+                   # This happens with some tagfiles which have no kind
12+               } elsif ( $tag->{kind} eq 'v' ) {
13 
14                    # TODO potentially don't skip depending on circumstances.
15                    if ( not $seen{ $tag->{name} }++ ) {
16@@ -528,7 +530,9 @@
17 
18            # TODO: INHERITANCE!
19            while ( defined($tag) ) {
20-               if (    $tag->{kind} eq 's'
21+               if ( ! defined($tag->{kind})) {
22+                   # This happens with some tagfiles which have no kind
23+               } elsif ($tag->{kind} eq 's'
24                    and defined $tag->{extension}{class}
25                    and $tag->{extension}{class} eq $class )
26                {
27@@ -551,7 +555,9 @@
28            while ( defined($tag) ) {
29 
30                # TODO check file scope?
31-               if ( $tag->{kind} eq 'p' ) {
32+               if ( ! defined($tag->{kind})) {
33+                   # This happens with some tagfiles which have no kind
34+               } elsif ( $tag->{kind} eq 'p' ) {
35 
36                    # TODO potentially don't skip depending on circumstances.
37                    if ( not $seen{ $tag->{name} }++ ) {