Ticket #1345: ActionLibrary.patch

Padre/Wx/ActionLibrary.pm

@@ -89 +89 @@
         comment    => _T('Dumps the complete Padre object to STDOUT for testing/debugging.'),
         menu_event => sub {
             require Data::Dumper;
+            my $dumpfh;
+            my $dumpfile= File::Spec->catfile(
+                    File::Spec->tmpdir(),
+                    'padre.dump',
+                );
+            warn("Dumping to $dumpfile\n");
             open(
-                my $dumpfh,
+                $dumpfh,
                 '>',
-                File::Spec->catfile(
-                    Padre::Constant::PADRE_HOME,
-                    'padre.dump',
-                ),
-            );
+                $dumpfile
+            ) or die "Failed to open $dumpfile: $?";
             print $dumpfh "# Begin Padre dump\n" . Data::Dumper::Dumper( $_[0]->ide ) . "# End Padre dump\n" . "1;\n";
             close $dumpfh;
         },