tonycoz
commented
1 year ago I think you need to take this up with modperl, if I reload a module with changes I see the changes in `@{"::<..."}`:
$ cat ../21091.pl
BEGIN { $^P = 0x400; }
spam(<<'EOS');
print "Version one\n";
EOS
require X21091c;
print for grep defined, @{"::_<../X21091c.pm"};
spam(<<'EOS');
print "Version one\n";
EOS
delete $INC{"X21091c.pm"};
spam(<<'EOS');
print "Version two\n";
EOS
require X21091c;
print for grep defined, @{"::_<../X21091c.pm"};
print join " ", grep( /^_/, keys %::), "\n";
sub spam {
open my $f, ">", "../X21091c.pm" or die;
print $f @_;
close $f;
}
$ ./perl -wI.. ../21091.pl
Version one
print "Version one\n";
Version two
print "Version two\n";
_<../X21091c.pm _<../21091.pl _ 
jkeenan
KES777
Description I am trying to debug perl code under
apache2+Apache::ASPwithDB::Hooksdebugger. I put breakpoint into code and did HTTP request. The debugger stopped at the breakpoint, but old source code is shown.Steps to Reproduce Comming soon. I do not have minimal example for that bind.
In short: The code is:
I started my httpd server and did request to the target page.
Then I put break point:
I did second request to the server.
Perl script execution stopped at the breakpoint on line2, but old code is shown:
Expected behavior
In my debugger I just dump content of
@{ '::<_myfile' }. And expect here updated source. Because perl interpreter is stopped here, then he knows about new breakpoint and read the updated source code, but just cached in some way@{ '::<_myfile' }. This should be updated too.Perl configuration