utf8 problem

[Thomas Barthel]

Hi,

I get the following error when running my par file:

C:\Perl>pp -p -o validator.par validator.pl

C:\Perl>parl validator.par

* Check XML (DTD)

* Check numbers
Tk::Error: Can't locate utf8.pm in @INC (@INC contains: CODE(0xbbc3d8) .)
at script/validator.pl line 496.
BEGIN failed--compilation aborted.
 main::BEGIN at script/validator.pl line 496
 main::number at script/validator.pl line 0
 main::doit at script/validator.pl line 310
 main::soonDoIt at script/validator.pl line 235
 [\&main::soonDoIt]
 Tk callback for .button
 Tk::__ANON__ at Tk.pm line 228
 Tk::Button::butUp at Tk/Button.pm line 111
 (command bound to event)

line 496 contains
            if ($x->textContent !~ /^(%[01-]+|\$[a-f0-9-]+|[0-9e.-]+)$/i)
{


no utf8 is included and no special characters are used.

Including utf8 blows everything:

C:\Perl>pp -p -M utf8 -o validator.par validator.pl

C:\Perl>parl validator.par

* Check XML (DTD)

* Check numbers
Use of uninitialized value in pattern match (m//) at /loader/0xbbc3d8/utf8_heavy.pl
line 165.
Use of uninitialized value in scalar assignment at /loader/0xbbc3d8/utf8_heavy.pl
line 181.
Use of uninitialized value in pattern match (m//) at /loader/0xbbc3d8/utf8_heavy.pl
line 182.
Use of uninitialized value in scalar assignment at /loader/0xbbc3d8/utf8_heavy.pl
line 239.
Use of uninitialized value in pattern match (m//) at /loader/0xbbc3d8/utf8_heavy.pl
line 242.
Use of uninitialized value in scalar assignment at /loader/0xbbc3d8/utf8_heavy.pl
line 291.
Use of uninitialized value in pattern match (m//) at /loader/0xbbc3d8/utf8_heavy.pl
line 292.
Tk::Error: panic: swash_fetch.
 main::number at script/validator.pl line 0
 main::doit at script/validator.pl line 310
 main::soonDoIt at script/validator.pl line 235
 [\&main::soonDoIt]
 Tk callback for .button
 Tk::__ANON__ at Tk.pm line 228
 Tk::Button::butUp at Tk/Button.pm line 111
 (command bound to event)

Im using ActiveState perl 5.8 and par 0.76.
Its a windows NT client and the script runs without
any error when I'm using Perl.

Thanks,

Thomas Barthel
--
______________________________________________________________________
 Thomas Barthel                         mail: [EMAIL PROTECTED]

              "Truth, justice and fuck the american way"

________________________________________
http://www.epost.de - das Kommunikationsportal der Deutschen Post