X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FFatPacker.pm;fp=lib%2FApp%2FFatPacker.pm;h=24abeaf514617d3dcfa1411a08f90aa9825de3a4;hb=e7051d24e8b8cc6556d3e2fcdaf00a1348e4a791;hp=16b8cddff685941f9ef91f3308395caffb06b1fc;hpb=872a7ac15fa4d5c0b3818da0149e263f0ba26a46;p=p5sagit%2FApp-FatPacker.git

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 16b8cdd..24abeaf 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -268,24 +268,38 @@ sub fatpack_end {
   return stripspace <<'  END_END';
     s/^  //mg for values %fatpacked;
 
-    unshift @INC, sub {
-      if (my $fat = $fatpacked{$_[1]}) {
-        if ($] < 5.008) {
-          return sub {
-            return 0 unless length $fat;
-            $fat =~ s/^([^\n]*\n?)//;
-            $_ = $1;
-            return 1;
-          };
-        }
-        open my $fh, '<', \$fat
-          or die "FatPacker error loading $_[1] (could be a perl installation issue?)";
-        return $fh;
+
+    if ($] < 5.008) {
+       unshift @INC, sub {
+         if (my $fat = $fatpacked{$_[1]}) {
+           return sub {
+             return 0 unless length $fat;
+             $fat =~ s/^([^\n]*\n?)//;
+             $_ = $1;
+             return 1;
+           };
+         }
+         return;
       }
-      return
-    };
+    }
+
+    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
+            or die "FatPacker error loading $_[1] (could be a perl installation issue?)";
+          return $fh;
+        }
+        return;
+      };
+
+    }
 
-    } # END OF FATPACK CODE
+  } # END OF FATPACK CODE
   END_END
 }