X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/10eefa1f9b43420c8609f5809bfe9dd81ebaca7d..a4d21c439a8b7953427fa2815d5dc41470e3eb59:/selfforum-cgi/shared/Lock.pm

diff --git a/selfforum-cgi/shared/Lock.pm b/selfforum-cgi/shared/Lock.pm
index 38823af..7290063 100644
--- a/selfforum-cgi/shared/Lock.pm
+++ b/selfforum-cgi/shared/Lock.pm
@@ -11,6 +11,7 @@ package Lock;
 ################################################################################
 
 use strict;
+use Carp;
 use vars qw(
   @EXPORT_OK
   %EXPORT_TAGS
@@ -554,6 +555,7 @@ sub masterlockfile ($) {
   &lockfile(&masterfile($_[0]));
 }
 sub masterfile ($) {
+  confess unless defined $_[0];
   "$_[0].master";
 }
 
@@ -841,4 +843,4 @@ BEGIN {
 
 #
 #
-### end of Lock ################################################################
+### end of Lock ################################################################
\ No newline at end of file