local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/file_magic.al

   1 # NOTE: Derived from blib/lib/Storable.pm.
   2 # Changes made here will be lost when autosplit is run again.
   3 # See AutoSplit.pm.
   4 package Storable;
   5
   6 #line 118 "blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/file_magic.al)"
   7 sub file_magic {
   8     my $file = shift;
   9     my $fh = new FileHandle;
  10     open($fh, "<". $file) || die "Can't open '$file': $!";
  11     binmode($fh);
  12     defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!";
  13     close($fh);
  14
  15     $file = "./$file" unless $file;  # ensure TRUE value
  16
  17     return read_magic($buf, $file);
  18 }
  19
  20 # end of Storable::file_magic
  21 1;