X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSub%2FQuote.pm;h=b5c5cc63120ca16711ec8032b7bfca53a353a91d;hb=7568ba55848e41dec5a2a6d04f9abab95dcb5fa3;hp=f75f79db7ff5eb7fdd54c00fa189bf3e37cc05a8;hpb=59812c87b1b00da1098f22c77e02db83ff594f22;p=gitmo%2FMoo.git

diff --git a/lib/Sub/Quote.pm b/lib/Sub/Quote.pm
index f75f79d..b5c5cc6 100644
--- a/lib/Sub/Quote.pm
+++ b/lib/Sub/Quote.pm
@@ -154,10 +154,10 @@ Sub::Quote - efficient generation of subroutines via string eval
 
  quote_sub 'Silly::doggy', q{ print "woof" };
 
- my $sound; $$sound = 0;
+ my $sound = 0;
 
  quote_sub 'Silly::dagron',
-   q{ print ++$$sound % 2 ? 'burninate' : 'roar' },
+   q{ print ++$sound % 2 ? 'burninate' : 'roar' },
    { '$sound' => \$sound };
 
 And elsewhere: