diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-18 21:52:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-18 21:52:25 +0000 |
| commit | 51a37f8016223ef5212790d4185d213114f2fd9b (patch) | |
| tree | b3648ca0b191c5a7fb60a438e6ad2a4ef7516601 /ext/Opcode | |
| parent | 2b33924249a3e03558df740efaba2154c35e2bcb (diff) | |
| download | perl-51a37f8016223ef5212790d4185d213114f2fd9b.tar.gz | |
It looks like the only way to reliably make Perl_hv_name_set a pure
macro in 5.8.x is to make it available as hv_name_set.
[Otherwise when and where aTHX_ hv gets expanded to foo, hv causes
warnings or other games when Perl_hv_name_set() is a macro]
p4raw-id: //depot/perl@25475
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index a699ebfde4..b313999a71 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -269,7 +269,7 @@ PPCODE: if (strNE(HvNAME_get(hv),"main")) { /* make it think it's in main:: */ - Perl_hv_name_set(aTHX_ hv, "main", 4, 0); + hv_name_set(hv, "main", 4, 0); hv_store(hv,"_",1,(SV *)PL_defgv,0); /* connect _ to global */ SvREFCNT_inc((SV *)PL_defgv); /* want to keep _ around! */ } |