http://www.perlmonks.org?node_id=178920


in reply to Re: Problems with String::Parity;
in thread Problems with String::Parity;

I am using ActiveState. I have the same version on another server which gives the same error also. It's the eval<<EDQ here...
my $even_codes = '';
while ($even_bits =~ /\0/g) {
$even_codes .= sprintf '\%o', (pos $even_bits) - 1;
}

eval<<EDQ;
I am using another version of it locally now, still getting the same error.

Replies are listed 'Best First'.
Re^3: Problems with String::Parity;
by Aristotle (Chancellor) on Jul 02, 2002 at 17:47 UTC
    The indented part below that should end with 
    EDQ
die $@ if $@;

    [download]
    Does it?

    Makeshifts last the longest.

[reply]
[d/l]
      Yes, Just, after the numerous subs (setEvenParity, setOddParity, showParity, EvenBytes & OddBytes). This one is the EDQ right before the 5 subs. I have replaced it with the pm from CPAN. They are the same. Is there a modification I could make there?
      I'm a little lost on this statement.
      eval <<EDQ;
      Thanks
[reply]
        I got it. I'm embarrased to say what it was though.;) Thank you.
[reply]

In Section Seekers of Perl Wisdom