From 6c36d55dc41d1016910f778c2a1c5bc9bcb83ca1 Mon Sep 17 00:00:00 2001
From: Ruslan Zakirov <ruz@bestpractical.com>
Date: Sun, 7 Aug 2011 04:12:42 +0400
Subject: [PATCH] [fudge] return back compatibility with perl 5.8

don't use // (DOR) operator
---
 fudge | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fudge b/fudge
index 307415488d..da58a92d7d 100755
--- a/fudge
+++ b/fudge
@@ -207,7 +207,7 @@ sub fudgeblock {
                 else {
                     my $does = join '|', keys %DOES;
                     next unless /^\s*($IS|$does)/;
-                    $numtests = $DOES{$1} // 1;
+                    $numtests = defined $DOES{$1}? $DOES{$1} : 1;
                 }
                 $PENDING--;
                 $_ = "{ " . $_ . " }";