From: André Walker <andre@andrewalker.net>
Date: Tue, 2 Aug 2011 20:17:48 +0000 (-0300)
Subject: fixing to work with perl 5.8
X-Git-Tag: 5.90005~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=6721fe5a8b96245412a26f17488d8be6116a2d7d

fixing to work with perl 5.8
---

diff --git a/t/lib/TestApp/View/Dump.pm b/t/lib/TestApp/View/Dump.pm
index 6c4c1ec..d7cc1a2 100644
--- 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);