Funny Side Effect for Unicode Classes

Greetings,

I've spent some time chasing a side effect that somehow breaks
character detections under the \p{} classes.  That is, the
side effect cause \p{Alpha} and others ( L, Latin, InBasicLatin )
to stop working for the identical RE.  The problem occurs with
other ranges as well.

I've seen this side effect occur seemingly at random, the
example script below shows that it occurs when "qr" is used.
It does occur in other cases w/o qr, this is the most simplified
example I could produce.  I am using Perl 5.8.0 under standard RH9.


run as:

  % ./qr-break.pl
  % ./qr-break.pl  1  # arbitrary arg to use qr and cause side effect.


The output I get for the first case is:

  RE 1:  <Found It!>
  RE 2:  <Found It!>

The output I get for the second case is:

  RE 1:  <Found It!>
  RE 2:  A=4

thanks,

/Daniel


begin 775 qr-break.pl.gz
M'XL("/VUHCX``W%R+6)R96%K+G!L`(V06TO#0!"%G[N_8IH$U(>Z*CY(8L2(
M50*"$+R`32E)N[6+S2;=G:64TO_N;,56Z(_at_)4?YWSGS`S';W-K-"^EXHW04^C,
MH9,>,L:L$6!0RR%&S`<W61R?142,+>%58";8DK6"`<00#'I'?4(M'QXF(_at_)JS/
MM7X+:72*X;VD\]*/\Q$_OZFM&D&*[0L>?;!\_AUL]US7:@^WB_)F>;=R_E[2
M3>\?^SP"`!]P0J_:TJ!$B[)6,*J%H2!4!:+0.]F=)]8DF3:3XB?ZF2Q0JC]X
MJJX*(X>_V5Q-$5M1=U4A5>AZJQ80H##4(O7G)?&IYVQ.U4Y9]PO[&\\!W6JT
M5`A>UH7C$)PO5YO03%-HICFI'.28DI=)=OOD<G3\'RM/OJQ<L7>G5YRH%@(`
!````
`
end