summaryrefslogtreecommitdiff
path: root/hv.c
diff options
context:
space:
mode:
authorPaul Marquess <paul.marquess@btinternet.com>2002-03-10 21:01:39 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-11 03:09:16 +0000
commit9014280dc8264580f076d4325a59f22a11592058 (patch)
treeb30d0236f820bf904e62ecea2b10ab66ceb4f506 /hv.c
parent1aebe30af2c0b05c78754c84317e50a47a2d0995 (diff)
downloadperl-9014280dc8264580f076d4325a59f22a11592058.tar.gz
more warnings tidyup
From: "Paul Marquess" <paul_marquess@yahoo.co.uk> Message-ID: <AIEAJICLCBDNAAOLLOKLMEEGDPAA.paul_marquess@yahoo.co.uk> p4raw-id: //depot/perl@15155
Diffstat (limited to 'hv.c')
-rw-r--r--hv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/hv.c b/hv.c
index 7efa0869db..df6c2d1c02 100644
--- a/hv.c
+++ b/hv.c
@@ -1821,7 +1821,7 @@ Perl_unsharepvn(pTHX_ const char *str, I32 len, U32 hash)
if (str != save)
Safefree(str);
if (!found && ckWARN_d(WARN_INTERNAL))
- Perl_warner(aTHX_ WARN_INTERNAL, "Attempt to free non-existent shared string '%s'",str);
+ Perl_warner(aTHX_ packWARN(WARN_INTERNAL), "Attempt to free non-existent shared string '%s'",str);
}
/* get a (constant) string ptr from the global string table