diff options
author | Chip Salzenberg <chip@atlantic.net> | 1997-01-28 23:11:49 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-29 18:11:00 +1200 |
commit | e3c19b7bc9a0745aef2775aa2cf9897de45593c4 (patch) | |
tree | c7af681d1196bea2384d361840a2fa8fb8e8c9b2 /mg.c | |
parent | 8ca41e400e258c6348e47a8adc6cf6570de760a8 (diff) | |
download | perl-e3c19b7bc9a0745aef2775aa2cf9897de45593c4.tar.gz |
Don't warn on C<$\ = undef>
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1326,7 +1326,12 @@ MAGIC* mg; case '\\': if (ors) Safefree(ors); - ors = savepv(SvPV(sv,orslen)); + if (SvOK(sv) || SvGMAGICAL(sv)) + ors = savepv(SvPV(sv,orslen)); + else { + ors = Nullch; + orslen = 0; + } break; case ',': if (ofs) |