--- /usr/local/share/perl/5.10.1/Padre/Wx/ActionLibrary.pm	2011-08-16 08:50:53.000000000 -0500
+++ /home/joi/lib/perl5/Padre/Wx/ActionLibrary.pm	2011-10-09 17:19:55.753984460 -0500
@@ -89,14 +89,17 @@
 		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;
 		},