lib/perl5db/t/disable-breakpoints-3 Test script used by perl5db.t
lib/perl5db/t/EnableModule.pm Tests for the Perl debugger
lib/perl5db/t/eval-line-bug Tests for the Perl debugger
+lib/perl5db/t/fact Tests for the Perl debugger
lib/perl5db/t/filename-line-breakpoint Tests for the Perl debugger
lib/perl5db/t/lvalue-bug Tests for the Perl debugger
lib/perl5db/t/MyModule.pm Tests for the Perl debugger
# Debugger for Perl 5.00x; perl5db.pl patch level:
use vars qw($VERSION $header);
-$VERSION = '1.39';
+$VERSION = '1.39_01';
$header = "perl5db.pl version $VERSION";
$subname =~ s/\'/::/g;
# Qualify it into the current package unless it's already qualified.
- $subname = "${'package'}::" . $subname unless $subname =~ /::/;
+ $subname = "${package}::" . $subname unless $subname =~ /::/;
# Add main if it starts with ::.
$subname = "main" . $subname if substr( $subname, 0, 2 ) eq "::";
my $s = $subname;
# Put it in this package unless it's already qualified.
- $subname = "${'package'}::" . $subname
+ $subname = "${package}::" . $subname
unless $subname =~ /::/;
# Requalify it into CORE::GLOBAL if qualifying it into this
# The search pattern is current package, ::, extract the next qualifier
# Prefix and pack are set to undef.
my ( $itext, $search, $prefix, $pack ) =
- ( $text, "^\Q${'package'}::\E([^:]+)\$" );
+ ( $text, "^\Q${package}::\E([^:]+)\$" );
=head3 C<b postpone|compile>
$subname =~ s/\'/::/g;
# Qualify it into the current package unless it's already qualified.
- $subname = "${'package'}::" . $subname
+ $subname = "${package}::" . $subname
unless $subname =~ /::/;
# Add main if it starts with ::.
}
}
-plan(30);
+plan(31);
my $rc_filename = '.perldb';
);
}
+{
+ my $wrapper = DebugWrap->new(
+ {
+ cmds =>
+ [
+ 'b fact',
+ 'c',
+ 'c',
+ 'c',
+ 'n',
+ 'print "<$n>"',
+ 'q',
+ ],
+ prog => '../lib/perl5db/t/fact',
+ }
+ );
+
+ $wrapper->output_like(
+ qr/<3>/,
+ 'b subroutine works fine',
+ );
+}
+
END {
1 while unlink ($rc_filename, $out_fn);
}