From 96f8732447e738b6dd321e67329bf06d7a1d2aaa Mon Sep 17 00:00:00 2001
From: AxisOfEntropy <AxisOfEntropy@gmail.com>
Date: Thu, 5 Aug 2010 16:07:42 +0000
Subject: [PATCH] One-line change for Perl 5.8.8 compatibility

---
 Butts.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Butts.pm b/Butts.pm
index b1325d0..05abc7c 100644
--- a/Butts.pm
+++ b/Butts.pm
@@ -194,7 +194,7 @@ C<STDERR>.
         my ($self, $string) = @_;
 
         my ($leading_ws, $remainder) = ($string =~ m/^(\s*)(.*)$/s);
-        $leading_ws //= '';
+        $leading_ws = defined $leading_ws ? $leading_ws : '';
 
         my @all_split = split(/(\s+)/, $remainder);
         my (@words, @ws);