正则表达式 – 如何在C中的Perl 5.12中创建一个qr //？

这在5.8和5.10中一直适用于我,但是在5.12中,我的代码创建了这个奇怪的非qr对象：

# running "print Dumper($regex)"
$VAR1 = bless( do{\(my $o = '')},'Regexp' );

而打印不是由我的代码创建的qr //看起来像这样：

# running "print Dumper(qr/foo/i)"
$VAR1 = qr/(?i-xsm:foo)/;

我的代码基本上是

REGEXP *rx = re_compile(pattern,flags);
SV *regex = sv_2mortal(newSVpv("",0));

sv_magic(regex,(SV*)rx,PERL_MAGIC_qr,0);

stash = gv_stashpv("Regexp",0);
sv_bless(newRV((SV*)regex),stash);

任何人知道如何从5.12中的字符串正确创建正则表达式？

谢谢你把我放在正确的轨道上,人们,事实证明,我正在认真地反思这一点.他们只是切断魔术线,不要创造PV.

这是Perl 5.12中需要做的所有工作：

REGEXP *rx = re_compile(pattern,flags);
SV *regex = newRV((SV*)rx);

stash = gv_stashpv("Regexp",0);
sv_bless(regex,stash);