diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1997-11-15 19:29:39 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-19 11:04:15 +0000 |
| commit | c277df42229d99fecbc76f5da53793a409ac66e1 (patch) | |
| tree | de3cf73b51d3455f54655dc5b9fdaa68e3da9a7a /mg.c | |
| parent | 5d5aaa5e70a8a8ab4803cdb506e2096b6e190e80 (diff) | |
| download | perl-c277df42229d99fecbc76f5da53793a409ac66e1.tar.gz | |
Jumbo regexp patch applied (with minor fix-up tweaks):
Subject: Version 7 of Jumbo RE patch available
p4raw-id: //depot/perl@267
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -418,7 +418,7 @@ magic_get(SV *sv, MAGIC *mg) } sv_setpvn(sv,s,i); if (tainting) - tainted = was_tainted || rx->exec_tainted; + tainted = was_tainted || RX_MATCH_TAINTED(rx); break; } } @@ -1305,6 +1305,14 @@ magic_setuvar(SV *sv, MAGIC *mg) return 0; } +int +magic_freeregexp(SV *sv, MAGIC *mg) +{ + regexp *re = (regexp *)mg->mg_obj; + ReREFCNT_dec(re); + return 0; +} + #ifdef USE_LOCALE_COLLATE int magic_setcollxfrm(SV *sv, MAGIC *mg) |