projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
76f9939
)
lex.t: Mangle obscenity (albeit euphemistic)
author
Father Chrysostomos
<sprout@cpan.org>
Wed, 29 Aug 2012 19:49:56 +0000
(12:49 -0700)
committer
Father 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
patch
|
blob
|
history
diff --git
a/t/base/lex.t
b/t/base/lex.t
index
17aee05
..
b3359bf
100644
(file)
--- a/
t/base/lex.t
+++ b/
t/base/lex.t
@@
-197,7
+197,7
@@
my $test = 42;
local $_ = "not ok ";
eval q{
s/^not /<<EOT/e and T '^main:\(eval \d+\):2$', $test++;
-#
f
uggedaboudit
+# uggedaboudit
EOT
print $_, $test++, "\n";
T('^main:\(eval \d+\):6$', $test++);