[ic] postcode error checking

[Jon Jensen]

Brett,

Thanks for spotting that! I verified this problem too and your solution
worked great. I've applied your patch to CVS.

Thanks,
Jon Jensen
Akopia, Inc.


On Thu, 19 Oct 2000, Brett Harrison wrote:

> in 4.5.7 I found the following :
> 
> sub _postcode {
>          (_zip(@_))[0] or (_ca_postcode(@_))[0]
>                  and return (1, $_[1], '');
>          return (undef, $var, 'not a US or Canada postal/zip code');
> }
> 
> 
> At least with my current setup, this does not work :(  I replaced _postcode 
> with my original patch and it once again works just fine.  I have only 
> tested this on *one* machine which is running RH Linux 5.2 and Perl 
> 5.6.0.  Hope this info is usefull to you.
> 
> Just to clear up the above *mud*.  This code is working for me:
> 
> sub _postcode {
>          ((_zip(@_))[0] or (_ca_postcode(@_))[0])
>                  and return (1, $_[1], '');
>          return (undef, $_[1], 'not a US or Canada postal/zip code');
> }