add djerius to contributor list
[p5sagit/App-FatPacker.git] / lib / App / FatPacker.pm
index 24abeaf..b5baa36 100644 (file)
@@ -268,9 +268,12 @@ sub fatpack_end {
   return stripspace <<'  END_END';
     s/^  //mg for values %fatpacked;
 
+    my $class = "${\\%fatpacked}";
+    *{"${class}::files"} = sub { keys %{$_[0]} };
 
     if ($] < 5.008) {
-       unshift @INC, sub {
+
+      *{"${class}::INC"} = sub {
          if (my $fat = $fatpacked{$_[1]}) {
            return sub {
              return 0 unless length $fat;
@@ -285,9 +288,6 @@ sub fatpack_end {
 
     else {
 
-      my $class = "${\\%fatpacked}";
-      unshift @INC, bless \%fatpacked, $class;
-      *{"${class}::files"} = sub { keys %{$_[0]} };
       *{"${class}::INC"} = sub {
        if (my $fat = $_[0]{$_[1]}) {
           open my $fh, '<', \$fat
@@ -299,6 +299,7 @@ sub fatpack_end {
 
     }
 
+    unshift @INC, bless \%fatpacked, $class;
   } # END OF FATPACK CODE
   END_END
 }
@@ -371,6 +372,8 @@ Mithaldu - Christian Walde (cpan:MITHALDU) <walde.christian@googlemail.com>
 
 dolmen - Olivier MenguĂ© (cpan:DOLMEN) <dolmen@cpan.org>
 
+djerius - Diab Jerius (cpan:DJERIUS) <djerius@cpan.org>
+
 Many more people are probably owed thanks for ideas. Yet
 another doc nit to fix.