lex.t: Mangle obscenity (albeit euphemistic)
authorFather Chrysostomos <sprout@cpan.org>
Wed, 29 Aug 2012 19:49:56 +0000 (12:49 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 31 Aug 2012 01:18:08 +0000 (18:18 -0700)
It is harder to hack on perl with someone looking over one’s shoulder
when there are comments like this, even when it is euphemistic in its
use of voiced dental stops instead of the voiceless kind.

t/base/lex.t

index 17aee05..b3359bf 100644 (file)
@@ -197,7 +197,7 @@ my $test = 42;
     local $_ = "not ok ";
     eval q{
        s/^not /<<EOT/e and T '^main:\(eval \d+\):2$', $test++;
-# fuggedaboudit
+# uggedaboudit
 EOT
         print $_, $test++, "\n";
        T('^main:\(eval \d+\):6$', $test++);