[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 # NOTE: Derived from ../../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 "../../lib/Storable.pm (autosplit into ../../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;
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |