Edit D:\app\Administrator\product\11.2.0\dbhome_1\perl\lib\auto\Storable\file_magic.al
# 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;
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de