Changeset 5509

Timestamp:

06/23/09 11:10:28 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Fixed a possible point of failure.

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm (modified) (1 diff)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm

@@ -221 +221 @@
     my ($self, $editor) = @_;
     
+    if(not defined $self->{issues}) {
+        $self->{issues} = [];
+    }
+
     my $nl = $self->guess_newline;
     my $current_line_no = $editor->GetCurrentLine;