X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXUser.pm;h=7ce853c665513dc53a02315e42c59884de589c74;hp=60abaeda3098f77598b67e2603f33790c3661c75;hb=f77b59f4fcceb428142461972e94345419cbda28;hpb=60c0ea1747bc8ad95e531d29025f7bcee4fd10c1

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 60abaeda..7ce853c6 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -42,8 +42,8 @@ sub init
 {
   my ($pkg, $fn) = @_;
   
-  die "need a filename in User\n" if !$fn;
-  $dbm = tie %u, MLDBM, $fn, O_CREAT|O_RDWR, 0666 or die "can't open user file: $fn ($!)\n";
+  die "need a filename in User" if !$fn;
+  $dbm = tie %u, MLDBM, $fn, O_CREAT|O_RDWR, 0666 or die "can't open user file: $fn ($!)";
   $filename = $fn;
 }
 
@@ -78,7 +78,7 @@ sub new
 
 sub get
 {
-  my $call = shift;
+  my ($pkg, $call) = @_;
   return $u{$call};
 }