Join GitHub today
GitHub is home to over 50 million developers working together to host and review code, manage projects, and build software together.
Sign upperl5db.pl: Undefined subroutine &DB::db_warn called #14400
Comments
From @chorobaCreated by @chorobaPerl debugger sometimes tries to call a non-existent subroutine How to replicate: perl -d -e1 Output: /bin/bash: /: Is a directory Patch to fix the issue attached. Choroba Perl Info |
From @chorobaperl5db.patch--- perl5db.pl.backup 2015-01-06 00:35:29.089785377 +0100
+++ perl5db.pl 2015-01-06 00:35:56.181979984 +0100
@@ -6723,24 +6723,24 @@
# We save, change, then restore STDIN and STDOUT to avoid fork() since
# some non-Unix systems can do system() but have problems with fork().
- open( SAVEIN, "<&STDIN" ) || db_warn("Can't save STDIN");
- open( SAVEOUT, ">&STDOUT" ) || db_warn("Can't save STDOUT");
- open( STDIN, "<&IN" ) || db_warn("Can't redirect STDIN");
- open( STDOUT, ">&OUT" ) || db_warn("Can't redirect STDOUT");
+ open( SAVEIN, "<&STDIN" ) || _db_warn("Can't save STDIN");
+ open( SAVEOUT, ">&STDOUT" ) || _db_warn("Can't save STDOUT");
+ open( STDIN, "<&IN" ) || _db_warn("Can't redirect STDIN");
+ open( STDOUT, ">&OUT" ) || _db_warn("Can't redirect STDOUT");
# XXX: using csh or tcsh destroys sigint retvals!
system(@_);
- open( STDIN, "<&SAVEIN" ) || db_warn("Can't restore STDIN");
- open( STDOUT, ">&SAVEOUT" ) || db_warn("Can't restore STDOUT");
+ open( STDIN, "<&SAVEIN" ) || _db_warn("Can't restore STDIN");
+ open( STDOUT, ">&SAVEOUT" ) || _db_warn("Can't restore STDOUT");
close(SAVEIN);
close(SAVEOUT);
# most of the $? crud was coping with broken cshisms
if ( $? >> 8 ) {
- db_warn( "(Command exited ", ( $? >> 8 ), ")\n" );
+ _db_warn( "(Command exited ", ( $? >> 8 ), ")\n" );
}
elsif ($?) {
- db_warn(
+ _db_warn(
"(Command died of SIG#",
( $? & 127 ),
( ( $? & 128 ) ? " -- core dumped" : "" ),
|
From @jkeenanOn Mon Jan 05 16:26:08 2015, choroba@cpan.org wrote:
Thank you very much for this report. This is a bug which crept in somewhere between perl 5.16.3 and perl 5.18.2. ##### Loading DB routines from perl5db.pl version 1.37 Enter h or 'h h' for help, or 'man perldebug' for more help. main::(-e:1): 1 DB<1> q Loading DB routines from perl5db.pl version 1.39_10 Enter h or 'h h' for help, or 'man perldebug' for more help. main::(-e:1): 1 We should figure out what commit broke this functionality, then consider whether we should apply your patch or try to restore the previous behavior.
-- |
|
The RT System itself - Status changed from 'new' to 'open' |
From @cpansproutOn Mon Jan 05 18:51:14 2015, jkeenan wrote:
b5679dc clearly had a few typos in it. That 5.16 had no ! command is unrelated. On Mon Jan 05 16:26:08 2015, choroba@cpan.org wrote:
Thank you. Applied as 2384afe. -- Father Chrysostomos |
|
@cpansprout - Status changed from 'open' to 'pending release' |
From @khwilliamsonThanks for submitting this ticket The issue should be resolved with the release today of Perl v5.22, available at http://www.perl.org/get.html -- |
|
@khwilliamson - Status changed from 'pending release' to 'resolved' |
Migrated from rt.perl.org#123553 (status was 'resolved')
Searchable as RT123553$