--- Nicholas Clark <[EMAIL PROTECTED]> wrote:
> On Tue, Jul 19, 2005 at 12:06:55AM -0700, rajarshi
> das wrote:
> > a bareword test :
> > use utf8;
> > my %hash = (???? => 123);
> > if (($hash{????}) eq ($hash{'????'})) print
> "ok\n";
> >
> >
> > The ???? above are the chars corresponding to
> > \x{0442},\x{0435},\x{0441}, and \x{0442}
> respectively.
> >
> > 1) On ebcdic, can we represent the barewords as
> > my %hash = ("\x{0442}\x{0435}\x{0441}\x{0442}" =>
> > 123)
> > since the actual chars cannot be printed ?
>
> Well, no, because then it won't be a bareword.
>
> > 2) Or is there a different way to represent
> barewords
> > on ebcdic ?
> >
> > 3) The if condition above becomes,
> >
> > if (($hash{"\x{0442}\x{0435}\x{0441}\x{0442}"}) eq
> > ($hash{'"\x{0442}\x{0435}\x{0441}\x{0442}"'}))
> >
> > Can I rewrite the above as :
> > if (($hash{"\x{0442}\x{0435}\x{0441}\x{0442}"}) eq
> > ($hash{eval
> '"\x{0442}\x{0435}\x{0441}\x{0442}"'}))
> > and still be doing a bareword test ?
>
> You might be better just skipping the test if you
> can't make it work.
> Although it would be better if you could figure out
> why.
I basically want to know if there are alternate ways
of representing barewords (as I mentioned in question
2) above) ?
Also, any pointers that you have regarding where to
look to fix this ?
>
> The whole point of the test is to verify that
> barewords work correctly,
> and changing it to a non-bareword defeats the
> purpose of the test.
>
> Nicholas Clark
>
Thanks,
Rajarshi.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
