projects
/
catagits/Catalyst-Runtime.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
9310b81
)
fixing to work with perl 5.8
André Walker [Tue, 2 Aug 2011 20:17:48 +0000 (17:17 -0300)]
t/lib/TestApp/View/Dump.pm
patch
|
blob
|
blame
|
history
diff --git
a/t/lib/TestApp/View/Dump.pm
b/t/lib/TestApp/View/Dump.pm
index
6c4c1ec
..
d7cc1a2
100644
(file)
--- a/
t/lib/TestApp/View/Dump.pm
+++ b/
t/lib/TestApp/View/Dump.pm
@@
-11,7
+11,7
@@
sub dump {
return unless $reference;
- $purity = $purity // 1;
+ $purity = defined $purity ? $purity : 1;
my $dumper = Data::Dumper->new( [$reference] );
$dumper->Indent(1);