develooper Front page | perl.perl5.porters | Postings from July 2001

Re: [PATCH perl@11059] UCD.pm: if at first you don't succeed, croak?

Thread Previous | Thread Next
From:
perl5-porters
Date:
July 3, 2001 13:55
Subject:
Re: [PATCH perl@11059] UCD.pm: if at first you don't succeed, croak?
Message ID:
9htbhn$tfo$1@post.home.lunix
In article <20010703152920.Q19034@chaos.wustl.edu>,
	Jarkko Hietaniemi <jhi@iki.fi> writes:
> Hmmm.  Let's croak only if nothing worked.
> 
>     unless (defined $$rfh) {
>         for my $d (@INC) {
>             use File::Spec;
>             $f = File::Spec->catfile($d, "unicode", @path);
>             last if open($$rfh, $f);
>         }
>         croak __PACKAGE__, ": failed to find ",join("/",@path)," in @INC\n"
>             unless defined $rfh;
>     }
> 
shouldn't that be unless defined $$rfh ?

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About