try
$zone = lc $ARGV[0] || &{$err{'usage'}};
-----Original Message-----
From: Damir Horvat [mailto:[EMAIL PROTECTED]]
Sent: Monday, May 13, 2002 10:45 AM
To: [EMAIL PROTECTED]
Subject: trouble dereferencing
Hi!
I'm having problem dereferencing:
---
%err = (
"usage" => sub { die "\nUsage: $0 <zone> <master|slave>\n" },
"zone" => sub { die "Zone allready exists!\n" }
);
$zone = lc $ARGV[0] || $err{'usage'};
print "$zone\n";
---
bash-2.05a$ perl dnsaddzone.pl
CODE(0x804eed0)
--
...................................
Damir Horvat
System administrator
VOLJATEL telekomunikacije d.d.
Smartinska 106
SI-1000 Ljubljana
Slovenia
...
Tel. +386.(0)1.5875 832
Fax. +386.(0)1.5875 899
www.voljatel.si
E-mail: [EMAIL PROTECTED]
...................................
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
