--- loncom/LONCAPA.pm	2006/06/19 09:35:08	1.6
+++ loncom/LONCAPA.pm	2006/06/19 10:00:27	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.6 2006/06/19 09:35:08 www Exp $
+# $Id: LONCAPA.pm,v 1.7 2006/06/19 10:00:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -173,7 +173,7 @@ sub untie_user_hash {
 sub locking_hash_tie {
     my ($filename,$how)=@_;
     my ($file_prefix,$namespace)=&db_filename_parts($filename);
-    unless ($namespace) { return undef; }
+    if ($namespace eq '') { return undef; }
     return &_locking_hash_tie($file_prefix,$namespace,$how);
 }
 
@@ -184,7 +184,7 @@ sub locking_hash_untie {
 sub db_filename_parts {
     my ($filename)=@_;
     my ($file_path,$namespace)=($filename=~/^(.*)\/([^\/]+)\.db$/);
-    unless ($namespace) { return undef; }
+    if ($namespace eq '') { return undef; }
     return ($file_path.'/'.$namespace,$namespace);
 }