From: djk <djk>
Date: Sat, 17 Jun 2000 22:12:48 +0000 (+0000)
Subject: fixed typos in print
X-Git-Tag: R_1_42~10
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c9635910bdfb6b633031a6c27a8721560407fad;p=spider.git

fixed typos in print
---

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index a4450cae..a3675f81 100755
--- a/perl/update_sysop.pl
+++ b/perl/update_sysop.pl
@@ -56,7 +56,7 @@ sub create_it
 
 	# now do one for the alias
 	while ($ref = DXUser->get($myalias)) {
-		print "old call $mycall deleted\n";
+		print "old call $myalias deleted\n";
 		$ref->del();
 	}
 
@@ -78,7 +78,7 @@ sub create_it
   
 	# write it away
 	$self->close();
-	print "new call $mycall added\n";
+	print "new call $myalias added\n";
 
 }