#! perl
#line "staticperl-boot"

# boot file for staticperl
# this file will be eval'ed at initialisation time

package staticperl;

BEGIN {
   PerlIO::scalar->bootstrap; # needed for scalar=>fh conversion
   Compress::LZF->bootstrap;  # needed for decompression...

   @INC = sub {
      # find
      if (my $data = find_file "/$_[1]") {
         # decompress
         $data = Compress::LZF::decompress ($data);
         # create a filehandle
         open my $fh, "<", \$data;
         # return
         return $fh;
      }

      undef
   };
}