fo_posting.pl now runs without warnings, it's yet too special, this will be fixed...

[selfforum.git] / selfforum-cgi / shared / Lock.pm

diff --git a/selfforum-cgi/shared/Lock.pm b/selfforum-cgi/shared/Lock.pm
index f878aea9856b49cb0ad8349e0e05e133cb918095..72900639f608e6899c2654f462f7dfd70fac82c4 100644 (file)
--- a/selfforum-cgi/shared/Lock.pm
+++ b/selfforum-cgi/shared/Lock.pm
@@ -12,7 +12,6 @@ package Lock;
 
 use strict;
 use Carp;
 
 use strict;
 use Carp;

-

 use vars qw(
   @EXPORT_OK
   %EXPORT_TAGS
 use vars qw(
   @EXPORT_OK
   %EXPORT_TAGS


@@ -556,6 +555,7 @@ sub masterlockfile ($) {
   &lockfile(&masterfile($_[0]));
 }
 sub masterfile ($) {
   &lockfile(&masterfile($_[0]));
 }
 sub masterfile ($) {

+  confess unless defined $_[0];

   "$_[0].master";
 }
 
   "$_[0].master";
 }
 


@@ -843,4 +843,4 @@ BEGIN {
 
 #
 #
 
 #
 #

-### end of Lock ################################################################
+### end of Lock ################################################################
\ No newline at end of file