diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-02 16:09:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-02 16:09:13 +0000 |
| commit | 278c13c7a02cfcf5092ee32363fbfa172ec7ccf9 (patch) | |
| tree | f4c669b9f0142195b8ea1b99393207621e550cc2 /pp_sys.c | |
| parent | 5d58f1a92168968c093316c4719952933de10724 (diff) | |
| parent | 6e58d65cdee942efacbebb436841cff48d4c4061 (diff) | |
| download | perl-278c13c7a02cfcf5092ee32363fbfa172ec7ccf9.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@3892
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -816,12 +816,13 @@ PP(pp_untie) if (ckWARN(WARN_UNTIE)) { MAGIC * mg ; if (mg = SvTIED_mg(sv, how)) { - if (mg && SvREFCNT(SvRV(mg->mg_obj)) > 1) #ifdef IV_IS_QUAD + if (mg && SvREFCNT(SvRV(mg->mg_obj)) > 1) Perl_warner(aTHX_ WARN_UNTIE, "untie attempted while %" PERL_PRIu64 " inner references still exist", (UV)SvREFCNT(SvRV(mg->mg_obj)) - 1 ) ; #else + if (mg && SvREFCNT(SvRV(mg->mg_obj)) > 1) Perl_warner(aTHX_ WARN_UNTIE, "untie attempted while %lu inner references still exist", (unsigned long)SvREFCNT(SvRV(mg->mg_obj)) - 1 ) ; |