X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=tool%2Fgenerate-mouse-tiny.pl;h=cd9389a214a5842f4d51268b292b3a4aa0603436;hb=a4b15169d428989d2e901708effe21f3eaab23b5;hp=71d6b60d91be7c942567cd2e2ab197ee01d6cb0d;hpb=483111589df87c90ac897c386c79fbbf1e1aeabb;p=gitmo%2FMouse.git

diff --git a/tool/generate-mouse-tiny.pl b/tool/generate-mouse-tiny.pl
index 71d6b60..cd9389a 100644
--- a/tool/generate-mouse-tiny.pl
+++ b/tool/generate-mouse-tiny.pl
@@ -32,6 +32,7 @@ find({
             &&  /\.pm$/
             && !/Squirrel/
             && !/Tiny/
+            && !/Test/         # only for testing
             && !/Spec/         # has no functionality
             && !/TypeRegistry/ # deprecated
             && !/\bouse/       # ouse.pm
@@ -54,6 +55,8 @@ for my $file (uniq
     $contents =~ s/__END__\b.*//s;          # remove documentation
     $contents =~ s/1;\n*$//;                # remove success indicator
 
+    $contents =~ s{^( (?:[ ]{4})+ )}{ "\t" x (length($1) / 4) }xmsge; # spaces to tabs
+
     $mouse_tiny .= "BEGIN{ # $file\n";
     $mouse_tiny .= $contents;
     $mouse_tiny .= "}\n";
@@ -65,13 +68,14 @@ print { $handle } << "EOF";
 # This file was generated by $0 from Mouse $Mouse::Spec::VERSION.
 #
 # ANY CHANGES MADE HERE WILL BE LOST!
-
+use strict;
+use warnings;
 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:
+# tell Perl we already have all of the Mouse files loaded:
 EOF
 
 for my $file (@files) {
@@ -93,9 +97,11 @@ END_OF_TINY
 } # unless Mouse.pm is loaded
 EOF
 
-print { $handle } << 'EOF';
+print { $handle } << "EOF";
 package Mouse::Tiny;
 
+our \$VERSION = '$Mouse::Spec::VERSION';
+
 Mouse::Exporter->setup_import_methods(also => 'Mouse');
 
 1;