diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-20 22:56:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-20 21:57:22 +0000 |
| commit | f98bc0c60b037c4df60741a875da49b98d04509c (patch) | |
| tree | 9764fb451b55c02c50d715d2df803b638010b23a /ext/attrs | |
| parent | a634c1702b9b72e0d5017b79d9c7d13ca05c52b9 (diff) | |
| download | perl-f98bc0c60b037c4df60741a875da49b98d04509c.tar.gz | |
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-ID: <AIEAJICLCBDNAAOLLOKLEEEAEAAA.paul_marquess@yahoo.co.uk>
packWARN also for subdirs.
p4raw-id: //depot/perl@15378
Diffstat (limited to 'ext/attrs')
| -rw-r--r-- | ext/attrs/attrs.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs index 142f09aeb2..73f100decc 100644 --- a/ext/attrs/attrs.xs +++ b/ext/attrs/attrs.xs @@ -28,7 +28,7 @@ import(...) if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv))) croak("can't set attributes outside a subroutine scope"); if (ckWARN(WARN_DEPRECATED)) - Perl_warner(aTHX_ WARN_DEPRECATED, + Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), "pragma \"attrs\" is deprecated, " "use \"sub NAME : ATTRS\" instead"); for (i = 1; i < items; i++) { |