Ticket #1345: ActionLibrary.patch

File ActionLibrary.patch, 829 bytes (added by gyles19, 3 years ago)

Patch that works on Ubuntu, for me.

  • Padre/Wx/ActionLibrary.pm

    old new  
    8989        comment    => _T('Dumps the complete Padre object to STDOUT for testing/debugging.'), 
    9090        menu_event => sub { 
    9191            require Data::Dumper; 
     92            my $dumpfh; 
     93            my $dumpfile= File::Spec->catfile( 
     94                    File::Spec->tmpdir(), 
     95                    'padre.dump', 
     96                ); 
     97            warn("Dumping to $dumpfile\n"); 
    9298            open( 
    93                 my $dumpfh, 
     99                $dumpfh, 
    94100                '>', 
    95                 File::Spec->catfile( 
    96                     Padre::Constant::PADRE_HOME, 
    97                     'padre.dump', 
    98                 ), 
    99             ); 
     101                $dumpfile 
     102            ) or die "Failed to open $dumpfile: $?"; 
    100103            print $dumpfh "# Begin Padre dump\n" . Data::Dumper::Dumper( $_[0]->ide ) . "# End Padre dump\n" . "1;\n"; 
    101104            close $dumpfh; 
    102105        },