Commit 6bb1862447d0fc577d8fd5601a6af8c04071b1fc - libfile-flat-perl

switch from "use vars" to "our", raising minimum perl to 5.6 Karen Etheridge 5 years ago

1 changed file(s) with 9 addition(s) and 15 deletion(s). Raw diff Collapse all Expand all

-15

lib/File/Flat.pm less more

15	15	use prefork 'File::Copy::Recursive';
16	16	use prefork 'File::Remove';
17	17
18		use vars qw{$VERSION $errstr %modes $AUTO_PRUNE};
19		BEGIN {
20		$VERSION = '1.05';
21
22		# The main error string
23		$errstr = '';
24
25		# Create a map of all file open modes we support,
26		# and which ones will create a new file if needed.
27		%modes = (
	18	our $VERSION = '1.05';
	19
	20	# The main error string
	21	our $errstr = '';
	22
	23	# Create a map of all file open modes we support,
	24	# and which ones will create a new file if needed.
	25	our %modes = (
28	26	'<' => 0, 'r' => 0, # Read
29	27	'+<' => 1, 'r+' => 1, # ReadWrite
30	28	'>' => 1, 'w' => 1, # Write

32	30	'>>' => 1, 'a' => 1 # Append
33	31	);
34	32
35		$AUTO_PRUNE = '';
36		}
37
38
39
	33	our $AUTO_PRUNE = '';
40	34
41	35
42	36	#####################################################################