Changeset 5395

Timestamp:

06/20/09 00:20:23 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Handled No document in export PIR/EXE

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6.pm (modified) (2 diffs)

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

@@ -582 +582 @@
     my $main = $self->main;
 
-    my $doc = Padre::Current->document;
-    unless(defined $doc) {
+    my $doc = $main->current->document;
+    if(not defined $doc) {
+        Wx::MessageBox( Wx::gettext('No document'), Wx::gettext('Error'), Wx::wxOK, $main, );
         return;
     }
@@ -758 +759 @@
     my $main = $self->main;
 
-    my $doc = Padre::Current->document;
-    unless(defined $doc) {
+    my $doc = $main->current->document;
+    if(not defined $doc) {
+        Wx::MessageBox( Wx::gettext('No document'), Wx::gettext('Error'), Wx::wxOK, $main, );
         return;
     }