* demerphq <demerphq@gmail.com> [2012-01-25T11:44:53] > no overloading; > my $qr1=qr/(foo)/; > my $qr2=qr/(boo)/; > my $qr3=qr/(loo)/; > ok( (("foo" =~ $qr1) && $1 && ($1 eq "foo")), "Raw regex"); > ok( (("boo" =~ /$qr2/) && $1 && ($1 eq "boo")), "Raw regex redux"); > ok( (("xlooy"=~/x${qr3}y/) && $1 && ($1 eq "loo")),"Embedded regex"); > ok("$qr1"=~/REGEXP/,"Sanity check"); What do you think about the suggestion that embedding a regexp object in another regexp under "no overloading" is like doing almost anything with ($x = undef) under "use undef::stringification"? -- rjbsThread Previous | Thread Next