diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-29 10:48:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-29 10:48:39 +0000 |
| commit | 57668c4d7bc86e7fbc7116d331d73409d0afeaa8 (patch) | |
| tree | 0b1ba090d0b13f7d676e271958c0464d3c477b33 /sv.c | |
| parent | 5f2d631d316df23ef6c85417f986072d5c8e5834 (diff) | |
| download | perl-57668c4d7bc86e7fbc7116d331d73409d0afeaa8.tar.gz | |
backout change#2334
p4raw-link: @2334 on //depot/perl: 60ad88b8fe9480f2f097fca26f4f3a9f83a4f830
p4raw-id: //depot/perl@2383
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1569,7 +1569,7 @@ sv_2pv(register SV *sv, STRLEN *lp) if ( ((SvFLAGS(sv) & (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG)) == (SVs_OBJECT|SVs_RMG)) - && strEQ(s=HvNAME(SvSTASH(sv)), "re") + && strEQ(s=HvNAME(SvSTASH(sv)), "Regexp") && (mg = mg_find(sv, 'r'))) { dTHR; regexp *re = (regexp *)mg->mg_obj; |