diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al deleted file mode 100755 index 532ab40ba60..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 118 "blib\lib\Storable.pm (autosplit into blib\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; |