From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 7 Nov 2010 07:59:35 +0000 (+0000)
Subject: detab. again. think I might've fixed it this time.
X-Git-Tag: 0.009001~60
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17a8e3f03cab1efc26f7c0582c034de5b8f53c18;p=gitmo%2FMoo.git

detab. again. think I might've fixed it this time.
---

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index 5623366..7814fb8 100644
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -70,8 +70,8 @@ sub _generate_trigger {
       my $cap_name = qq{\$trigger_captures_for_${name}};
       $self->{captures}->{$cap_name} = \$captures;
       return "do {\n".'      '.$at_."\n"
-	.Sub::Quote::capture_unroll($cap_name, $captures, 6)
-	."     ${code}\n    }";
+        .Sub::Quote::capture_unroll($cap_name, $captures, 6)
+        ."     ${code}\n    }";
     }
     return 'do { local @_ = ('.join(', ', $obj, $value).'); '.$code.' }';
   }
diff --git a/lib/Sub/Quote.pm b/lib/Sub/Quote.pm
index 3bb4be3..72af94e 100644
--- a/lib/Sub/Quote.pm
+++ b/lib/Sub/Quote.pm
@@ -20,7 +20,7 @@ sub capture_unroll {
     '',
     map {
       /^([\@\%\$])/
-	or die "capture key should start with \@, \% or \$: $_";
+        or die "capture key should start with \@, \% or \$: $_";
       (' ' x $indent).qq{my ${_} = ${1}{${from}->{${\perlstring $_}}};\n};
     } keys %$captures
   );