From 9c9635910bdfb6b633031a6c27a8721560407fad Mon Sep 17 00:00:00 2001 From: djk Date: Sat, 17 Jun 2000 22:12:48 +0000 Subject: [PATCH] fixed typos in print --- perl/update_sysop.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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"; } -- 2.34.1