Version 1.1.1:

- Improved constructor
- If we tried to unlock the list file and the lock file already exists, the 'lock' variable in the object properties wasn't set to 0
- Fixed a lot of typos
- Removed $VERSION variable (version number is now found in the head comment)

diff --git a/modules/File/UseList.pm b/modules/File/UseList.pm
index 33ef12cf5ce3ae510446ba24f1f01e12eee74d6d..22d1bcc87320a2568decae829eabfa64d68e101b 100644 (file)
--- a/modules/File/UseList.pm
+++ b/modules/File/UseList.pm
@@ -1,21 +1,19 @@
 package File::UseList;
 
 #
 package File::UseList;
 
 #

-# File::UseList
+# File::UseList 1.1.1

 #
 # Run a list with files that are currently in use
 #
 # Run a list with files that are currently in use

-# (bases upon Filing::UseList by Roland Bluethgen <calocybe@web.de>)
+# (bases on Filing::UseList by Roland Bluethgen <calocybe@web.de>)

 #
 # Author:        Patrick Canterino <patshaping@gmx.net>
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>

-# Last modified: 09-26-2003
+# Last modified: 2003-10-17

 #
 
 use strict;
 
 use Carp qw(croak);
 
 #
 
 use strict;
 
 use Carp qw(croak);
 

-our $VERSION = '1.1';
-

 # new()
 #
 # Constructor
 # new()
 #
 # Constructor


@@ -24,7 +22,7 @@ our $VERSION = '1.1';
 #               lockfile => Lock file (Default: List file + .lock)
 #               timeout  => Lock timeout in seconds (Default: 10)
 #
 #               lockfile => Lock file (Default: List file + .lock)
 #               timeout  => Lock timeout in seconds (Default: 10)
 #

-# Return: File::UseList object
+# Return: File::UseList object (Blessed Reference)

 
 sub new(%)
 {
 
 sub new(%)
 {


@@ -32,17 +30,16 @@ sub new(%)
 
  # Check if we got all the necessary information
 
 
  # Check if we got all the necessary information
 

- croak "Missing path of list file"              unless($args{'listfile'});
- $args{'lockfile'} = $args{'listfile'}.".lock"  unless($args{'lockfile'}); # Default filename of lock file
- $args{'timeout'}  = 10                         unless($args{'timeout'});  # Default timeout
+ croak "Missing path to list file"             unless($args{'listfile'});
+ $args{'lockfile'} = $args{'listfile'}.".lock" unless($args{'lockfile'}); # Default filename of lock file
+ $args{'timeout'}  = 10                        unless($args{'timeout'});  # Default timeout

 
 

- # Create $self
+ # Add some other information

 
 

- my $self = \%args;
- $self->{'files'}  = [];
- $self->{'locked'} = 0;
+ $args{'files'}  = [];
+ $args{'locked'} = 0;

 
 

- return bless($self,$class);
+ return bless(\%args,$class);

 }
 
 # lock()
 }
 
 # lock()


@@ -98,24 +95,24 @@ sub unlock
 
  if($self->{'locked'})
  {
 
  if($self->{'locked'})
  {

-  return 1 if(-f $lockfile); # Hmmm...
-
-  open(LOCKFILE,">",$lockfile) or return;
-  close(LOCKFILE)              or return;
+  unless(-f $lockfile)
+  {
+   open(LOCKFILE,">",$lockfile) or return;
+   close(LOCKFILE)              or return;
+  }

 
   $self->{'locked'} = 0;
 
   $self->{'locked'} = 0;

-

   return 1;
  }
 
   return 1;
  }
 

- # The list wasn't lock by ourselves
+ # The list wasn't lock by us or it isn't locked at all

 
  return;
 }
 
 # load()
 #
 
  return;
 }
 
 # load()
 #

-# Load the list with files
+# Load the list with files from the list file

 #
 # Params: -nothing-
 #
 #
 # Params: -nothing-
 #


@@ -129,7 +126,7 @@ sub load
 
  # Read out the file and split the content line-per-line
 
 
  # Read out the file and split the content line-per-line
 

- open(FILE,"<".$file) or return;
+ open(FILE,"<",$file) or return;

  read(FILE, my $content, -s $file);
  close(FILE)          or return;
 
  read(FILE, my $content, -s $file);
  close(FILE)          or return;
 


@@ -152,7 +149,7 @@ sub load
 
 # save()
 #
 
 # save()
 #

-# Save the list with files
+# Write the list with files back to the list file

 #
 # Params: -nothing-
 #
 #
 # Params: -nothing-
 #


@@ -172,11 +169,9 @@ sub save
  print FILE $data     or do { close(FILE); return };
  close(FILE)          or return;
 
  print FILE $data     or do { close(FILE); return };
  close(FILE)          or return;
 

- rename($temp,$file) and return 1;
-
- # Rubbish
+ rename($temp,$file)  or return;

 
 

- return;
+ return 1;

 }
 
 # add_file()
 }
 
 # add_file()


@@ -263,4 +258,4 @@ sub unused($)
 1;
 
 #
 1;
 
 #

-### Ende ###
\ No newline at end of file
+### End ###
\ No newline at end of file