From: Tokuhiro Matsuno Date: Tue, 9 Jun 2009 07:04:18 +0000 (+0900) Subject: Mouse code has a lot of '{' and '}', q{} is dangerous. X-Git-Tag: 0.24~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=448fbe3285470e2885ab4e105044fa84bdc9e078;p=gitmo%2FMouse.git Mouse code has a lot of '{' and '}', q{} is dangerous. perl interpreter confused by q{}. heredoc is more safety. --- diff --git a/author/generate-mouse-tiny.pl b/author/generate-mouse-tiny.pl index 265cd16..e292543 100755 --- a/author/generate-mouse-tiny.pl +++ b/author/generate-mouse-tiny.pl @@ -41,7 +41,7 @@ print { $handle } << 'EOF'; # if regular Mouse is loaded, bail out unless ($INC{'Mouse.pm'}) { -eval q{ +eval <<'END_OF_TINY'; # tell Perl we already have all of the Mouse files loaded: EOF @@ -55,7 +55,7 @@ print { $handle } "\n# and now their contents\n\n"; print { $handle } $mouse_tiny; -print { $handle } "}; #eval\n} #unless\n\n"; +print { $handle } "END_OF_TINY\n} #unless\n\n"; print { $handle } << 'EOF'; package Mouse::Tiny;