in reply to
perl5db - how to step into my sub without stepping into glob
Ok, found the answer after asking the question, its s Fudge or s main::Fudge
$ perl -d p5dbglob.pl . . .
Loading DB routines from perl5db.pl version 1.33
Editor support available.
Enter h or `h h' for help, or `perldoc perldebug' for more help.
main::(p5dbglob.pl:8): Main( @ARGV );
DB<1> s
main::Main(p5dbglob.pl:11): for my $dir ( @_ ){
DB<1> s
main::Main(p5dbglob.pl:12): chdir $dir or die $!;
DB<1> s
main::Main(p5dbglob.pl:13): Fudge( $dir, glob '*' );
DB<1> s Fudge
main::Main((eval 8)[C:/perl/5.14.1/lib/perl5db.pl:640]:3):
3: Fudge;
DB<<2>> s
main::Fudge(p5dbglob.pl:17): my $dir = shift;
DB<<2>> s
main::Fudge(p5dbglob.pl:18): my $count = @_;
DB<<2>> q
Before that I also found you can exit the subroutine you stepped into with r
$ perl -d p5dbglob.pl . . .
Loading DB routines from perl5db.pl version 1.33
Editor support available.
Enter h or `h h' for help, or `perldoc perldebug' for more help.
main::(p5dbglob.pl:8): Main( @ARGV );
DB<1> s
main::Main(p5dbglob.pl:11): for my $dir ( @_ ){
DB<1> s
main::Main(p5dbglob.pl:12): chdir $dir or die $!;
DB<1> s
main::Main(p5dbglob.pl:13): Fudge( $dir, glob '*' );
DB<1> s
File::Glob::csh_glob(C:/perl/5.14.1/lib/MSWin32-x86-multi-thread/File/
+Glob.pm:78):
78: my $pat = shift;
DB<1> r
list context return from File::Glob::csh_glob:
0 'foo.txt'
1 'dum1.txt'
2 'dum2.txt'
3 'out.txt'
4 'p5dbglob.pl'
main::Fudge(p5dbglob.pl:17): my $dir = shift;
DB<1> s
main::Fudge(p5dbglob.pl:18): my $count = @_;
DB<1> q
Thanks
