Jerry D. Hedden [Tue, 20 Mar 2007 16:43:02 +0000 (09:43 -0700)]
From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <376615.72521.qm@web30204.mail.mud.yahoo.com>
p4raw-id: //depot/perl@30654
unless $tc->{noanchors} or $tc->{rxnoorder};
my $qr = ($tc->{noanchors}) ? qr/$str/ms : qr/^$str$/ms ;
- no re 'debug';
$tc->{rex} = $qr;
$tc->{rexstr} = $str;