Deparse-core.t: Fix ineffective tests
authorFather Chrysostomos <sprout@cpan.org>
Mon, 6 Oct 2014 00:30:59 +0000 (17:30 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 6 Oct 2014 00:30:59 +0000 (17:30 -0700)
In a958cfbb8, I accidentally changed this to test ‘test::foo()’,
rather than ‘foo()’ deparsing as ‘test::foo()’, which was what I
had intended.

lib/B/Deparse-core.t

index 2446622..88ea662 100644 (file)
@@ -135,8 +135,8 @@ sub do_infix_keyword {
        # B::Deparse fully qualifies any sub whose name is a keyword,
        # imported or not, since the importedness may not be reproduced by
        # the deparsed code.  x is special.
-       $keyword =~ s/^(?!x\z)/test::/;
-       testit $keyword, "$keyword(\$a, \$b)", "$keyword(\$a, \$b);";
+       my $pre = "test::" x ($keyword ne 'x');
+       testit $keyword, "$keyword(\$a, \$b)", "$pre$keyword(\$a, \$b);";
     }
 }