X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=site_perl%2FConf.pm;h=0b2d5b328122ef3a1e63282613058dcfb1d7cab1;hp=9cc0d900e0116116720832f2de174542bf71e8c7;hb=7613e14fd13aabb2a44bb26ca8640053f44930ea;hpb=bc968434919daeb185fae0d765aa01cd4734f14d

diff --git a/site_perl/Conf.pm b/site_perl/Conf.pm
index 9cc0d900e..0b2d5b328 100644
--- a/site_perl/Conf.pm
+++ b/site_perl/Conf.pm
@@ -73,11 +73,13 @@ sub config {
   my $fh = new IO::File "<$dir/$file" or return;
   if ( wantarray ) {
     map {
-      /^(.*)$/ or die "Illegal line in $dir/$file:\n$_\n";
+      /^(.*)$/
+        or die "Illegal line (array context) in $dir/$file:\n$_\n";
       $1;
     } <$fh>;
   } else {
-    <$fh> =~ /^(.*)$/ or die "Illegal line in $dir/$file:\n$_\n";
+    <$fh> =~ /^(.*)$/
+      or die "Illegal line (scalar context) in $dir/$file:\n$_\n";
     $1;
   }
 }
@@ -112,7 +114,10 @@ Ivan Kohler <ivan@sisd.com> 98-sep-6
 sub exists forgot to fetch $dir ivan@sisd.com 98-sep-27
 
 $Log: Conf.pm,v $
-Revision 1.3  1999-03-29 01:29:33  ivan
+Revision 1.4  1999-05-11 10:09:13  ivan
+try to diagnose strange multiple-line problem
+
+Revision 1.3  1999/03/29 01:29:33  ivan
 die unless the configuration directory exists
 
 Revision 1.2  1998/11/13 04:08:44  ivan