This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename to something more meaningful.
authorShlomi Fish <shlomif@shlomifish.org>
Thu, 13 Sep 2012 11:34:18 +0000 (14:34 +0300)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:22 +0000 (09:18 -0500)
lib/perl5db.t

index e538c61..d612b6e 100644 (file)
@@ -477,7 +477,7 @@ SKIP:
     $wrapper->contents_unlike(qr/INCORRECT/, "[perl #61222]");
 }
 
-sub _calc_foo_wrapper
+sub _calc_trace_wrapper
 {
     my $args = shift;
 
@@ -500,14 +500,14 @@ sub _calc_foo_wrapper
 
 # [perl 104168] level option for tracing
 {
-    my $wrapper = _calc_foo_wrapper({ prog =>  '../lib/perl5db/t/rt-104168' });
+    my $wrapper = _calc_trace_wrapper({ prog =>  '../lib/perl5db/t/rt-104168' });
     $wrapper->contents_like(qr/level 2/, "[perl #104168] - level 2 appears");
     $wrapper->contents_unlike(qr/baz/, "[perl #104168] - no 'baz'");
 }
 
 # taint tests
 {
-    my $wrapper = _calc_foo_wrapper(
+    my $wrapper = _calc_trace_wrapper(
         {
             prog => '../lib/perl5db/t/taint',
             extra_opts => ' NonStop=1',