| Server IP : 82.208.35.60 / Your IP : 216.73.216.89 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/devel/p5-Data-TemporaryBag/files/ |
Upload File : |
--- TemporaryBag.pm.orig Sun Nov 10 17:33:03 2002
+++ TemporaryBag.pm Fri May 23 13:00:03 2003
@@ -2,7 +2,10 @@
use strict;
-use Fcntl qw/:DEFAULT :seek/;
+use Fcntl qw/:DEFAULT/;
+use constant SEEK_SET => 0;
+use constant SEEK_END => 2;
+use Symbol;
use Carp;
use File::Temp ':mktemp';
@@ -14,7 +17,7 @@
use constant RECENTNESS => 4;
use constant FINGERPRINT => 4;
-our ($VERSION, $Threshold, $TempPath, $MaxOpen);
+use vars qw($VERSION $Threshold $TempPath $MaxOpen);
$VERSION = '0.06';
@@ -243,6 +246,7 @@
}
if (defined ($fn = $self->[FILENAME])) {
croak "TemporaryBag object seems to be collapsed " if (!-e $fn) or (!-f _);
+ $fh=gensym;
sysopen($fh, $fn, O_RDWR) or croak "TemporaryBag object seems to be collapsed OP";
croak "TemporaryBag object seems to be collapsed " if (-l $fn);
binmode $fh;