Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / i486-linux-gnu-thread-multi / auto / Storable / file_magic.al

diff --git a/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/file_magic.al b/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/file_magic.al
new file mode 100644 (file)
index 0000000..30dfe5f
--- /dev/null
+++ b/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/file_magic.al
@@ -0,0 +1,21 @@
+# 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;