fixed typos in print

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index a4450cae8e844bb0c688b761f0a37682d2eb674d..a3675f813f63ce03753450a28e2aeab5288c557c 100755 (executable)
--- 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";
 
 }