X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=author%2Fgenerate-mouse-tiny.pl;h=71d6b60d91be7c942567cd2e2ab197ee01d6cb0d;hb=ed2f9d7827b8cab69ed4493c4d6361567ad714b4;hp=42dd7cb93e59017bf3d1250d296129b4d9514b38;hpb=e3ca3ad0571140924ac8a16d454215529e4a2a17;p=gitmo%2FMouse.git

diff --git a/author/generate-mouse-tiny.pl b/author/generate-mouse-tiny.pl
index 42dd7cb..71d6b60 100755
--- a/author/generate-mouse-tiny.pl
+++ b/author/generate-mouse-tiny.pl
@@ -42,6 +42,7 @@ find({
 my $mouse_tiny = '';
 
 for my $file (uniq
+        'lib/Mouse/PurePerl.pm',
         'lib/Mouse/Exporter.pm',
         'lib/Mouse/Util.pm',
         'lib/Mouse/Meta/TypeConstraint.pm',
@@ -53,7 +54,7 @@ for my $file (uniq
     $contents =~ s/__END__\b.*//s;          # remove documentation
     $contents =~ s/1;\n*$//;                # remove success indicator
 
-    $mouse_tiny .= "BEGIN{ # #file\n";
+    $mouse_tiny .= "BEGIN{ # $file\n";
     $mouse_tiny .= $contents;
     $mouse_tiny .= "}\n";
 }
@@ -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";