diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-19 17:04:54 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-21 07:07:16 +0000 |
| commit | a21df721bd2b1f6f6000b965978d9b9377c04298 (patch) | |
| tree | 99dec8bd6371d749683b513861236a1ba5ddf789 /sv.c | |
| parent | 1b979e0af6d73985fab5b12b2e2d182e270d6642 (diff) | |
| download | perl-a21df721bd2b1f6f6000b965978d9b9377c04298.tar.gz | |
print study /re/ broken
Message-Id: <199806200104.VAA11343@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1178
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1702,7 +1702,7 @@ sv_2pv(register SV *sv, STRLEN *lp) case SVt_PVMG: if ( ((SvFLAGS(sv) & (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG)) - == (SVs_OBJECT|SVs_RMG)) + == (SVs_OBJECT|SVs_RMG|SVs_SMG)) && strEQ(s=HvNAME(SvSTASH(sv)), "Regexp") && (mg = mg_find(sv, 'r'))) { regexp *re = (regexp *)mg->mg_obj; |