| Subject: | [PATCH] fat comma quoting fixed |
t/UnexpandedSpecialLiteral.t checks for a perl bug which was fixed recently, with commit 21791330af556dc
attached patch adjusts the test
| Subject: | Perl-Critic-Pulp-79-fatcomma.patch |
diff -bu ./t/UnexpandedSpecialLiteral.t~ ./t/UnexpandedSpecialLiteral.t
--- ./t/UnexpandedSpecialLiteral.t~ 2013-03-15 18:45:39.000000000 -0500
+++ ./t/UnexpandedSpecialLiteral.t 2013-07-25 09:27:20.838863482 -0500
@@ -53,15 +53,26 @@
is_deeply (\@h, [ 'Foo__FILE__', 123 ],
'hash constructor literal on right of a . expression');
}
+# fat comma quoting fixed with 5.19.2 21791330af556dc
{ my @array = (__PACKAGE__
=> 123);
+ if ($] >= 5.019002) {
+ is_deeply (\@array, [ '__PACKAGE__', 123 ],
+ "fat comma quotes across newline");
+ } else {
is_deeply (\@array, [ 'main', 123 ],
"fat comma doesn't quote across newline");
+ }
}
{ my @array = (__PACKAGE__ # and with a comment
=> 123);
+ if ($] >= 5.019002) {
+ is_deeply (\@array, [ '__PACKAGE__', 123 ],
+ "fat comma quotes across newline");
+ } else {
is_deeply (\@array, [ 'main', 123 ],
"fat comma doesn't quote across comment and newline");
+ }
}