From: gfx <gfuji@cpan.org>
Date: Sat, 24 Oct 2009 05:22:18 +0000 (+0900)
Subject: Fix generate-mouse-tiny.pl
X-Git-Tag: 0.40_01~30
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e64f8097e17ea8b7b950fee35046dfa43a5b4f3;p=gitmo%2FMouse.git

Fix generate-mouse-tiny.pl
---

diff --git a/author/generate-mouse-tiny.pl b/author/generate-mouse-tiny.pl
index 42dd7cb..f80a031 100755
--- a/author/generate-mouse-tiny.pl
+++ b/author/generate-mouse-tiny.pl
@@ -44,6 +44,7 @@ my $mouse_tiny = '';
 for my $file (uniq
         'lib/Mouse/Exporter.pm',
         'lib/Mouse/Util.pm',
+        'lib/Mouse/PurePerl.pm',
         'lib/Mouse/Meta/TypeConstraint.pm',
         'lib/Mouse/Util/TypeConstraints.pm',
             sort @files) {
@@ -70,6 +71,7 @@ EOF
 print { $handle } << 'EOF';
 # if regular Mouse is loaded, bail out
 unless ($INC{'Mouse.pm'}) {
+    # tell Perl we already have all of the Mouse files loaded:
 EOF
 
 for my $file (@files) {
@@ -79,8 +81,6 @@ for my $file (@files) {
 
 print { $handle } << 'EOF';
 eval sprintf("#line %d %s\n", __LINE__, __FILE__) . <<'END_OF_TINY';
-
-# tell Perl we already have all of the Mouse files loaded:
 EOF
 
 print { $handle } "\n# and now their contents\n\n";