diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al new file mode 100644 index 00000000000..1bce16c051c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al @@ -0,0 +1,21 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 118 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\file_magic.al)" +sub file_magic { + my $file = shift; + my $fh = new FileHandle; + open($fh, "<". $file) || die "Can't open '$file': $!"; + binmode($fh); + defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!"; + close($fh); + + $file = "./$file" unless $file; # ensure TRUE value + + return read_magic($buf, $file); +} + +# end of Storable::file_magic +1; |