Changeset 5288

Timestamp:

06/18/09 02:21:10 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Fixed "Generate PIR" dying when rakudo does not parse the Perl 6 file.

File:

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

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

@@ -786 +786 @@
     $outpanel->AppendText( $out );
 
+    unless(-x $hello_pir) {
+        Wx::MessageBox(
+            'Operation failed. Please check the output.',
+            'Error',
+            Wx::wxOK,
+            $main,
+        );
+        return;
+    }
+    
     # try to open the HTML file
     $main->setup_editor($hello_pir);