-
Notifications
You must be signed in to change notification settings - Fork 556
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
perl5db.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$
The text was updated successfully, but these errors were encountered: