Damir Horvat wrote:
>
> Hi!
Hello,
> I'm having problem dereferencing:
> ---
> %err = (
> "usage" => sub { die "\nUsage: $0 \n" },
> "zone" => sub { die "Zone allready exists!\n" }
> );
>
> $zone = lc $ARGV[0] || $err{'usage'};
> print "$zone\n";
$zone = lc $ARGV[0] || $err{
Yeah, this seems to be a Perl 5 vs Perl 5.6 issue. In the third version
of the Camel on page 283 it says:
We could also have dereferenced it as &{ $HoF{lc $cmd} }(),
or, as of the 5.6 release of Perl, simply $HoF{lc $cmd}().
On Mon, 2002-05-13 at 11:56, Damir Horvat wrote:
> On
On Mon, 2002-05-13 at 10:45, Damir Horvat wrote:
> Hi!
>
> I'm having problem dereferencing:
> ---
> %err = (
> "usage" => sub { die "\nUsage: $0 \n" },
> "zone" => sub { die "Zone allready exists!\n" }
> );
>
> $zone = lc $ARGV[0] || $err{'usage'};
> print "$zone\n";
> ---
>
> bas
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 = (
&
Hi!
I'm having problem dereferencing:
---
%err = (
"usage" => sub { die "\nUsage: $0 \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)
--
..