blob: 18b9ad2c7579f7fed6725000784d706309943869 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
--- 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;
|
