diff options
| author | Duke Leto <jonathan@leto.net> | 2009-06-03 11:40:35 -0700 |
|---|---|---|
| committer | Duke Leto <jonathan@leto.net> | 2009-06-03 11:40:35 -0700 |
| commit | bc6438f27b8177f398dff639c69a23d6decfb59d (patch) | |
| tree | b22b5772279fd5848403146a77202fd34d11b200 /lib/perl5db.t | |
| parent | e42df61ffa4b532a113a57b2965d347ce4da44b3 (diff) | |
| download | perl-bc6438f27b8177f398dff639c69a23d6decfb59d.tar.gz | |
Fix bug introduced in 67924fd which put the key _< with an undefined value in the symbol table
This patch makes sure that $filename is defined before setting the _<$filename symbol. It also
adds a test which makes sure that *no* symbols have undefined values after loading perl5db.pl .
Diffstat (limited to 'lib/perl5db.t')
| -rw-r--r-- | lib/perl5db.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 67b5fda882..b0d2949be4 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -26,7 +26,7 @@ my $dev_tty = '/dev/tty'; } } -plan(2); +plan(3); sub rc { open RC, ">", ".perldb" or die $!; @@ -82,6 +82,12 @@ like($contents, qr/sub factorial/, like($output, qr/foo is defined/, 'lvalue subs work in the debugger'); } +{ + local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1"; + my $output = runperl(switches => [ '-d' ], progfile => '../lib/perl5db/t/symbol-table-bug'); + like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table'); +} + # clean up. END { |