projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
fixing to work with perl 5.8
[catagits/Catalyst-Runtime.git]
/
t
/
lib
/
TestApp
/
View
/
Dump.pm
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);