diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-06-11 15:19:45 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 13:13:27 +0000 |
| commit | c6c619a96fa11b09bef26d0c724b6cfd0bdbb34b (patch) | |
| tree | 00f4b8ab49ed4e56e2be3401170b6d1b6bca3e61 /ext/attrs | |
| parent | 6676db263f08eab1c09a46739d7c3c0d2ea7f6df (diff) | |
| download | perl-c6c619a96fa11b09bef26d0c724b6cfd0bdbb34b.tar.gz | |
ext/ + -Wall
Message-ID: <Pine.LNX.4.21.0106112212261.24181-100000@mako.covalent.net>
p4raw-id: //depot/perl@10534
Diffstat (limited to 'ext/attrs')
| -rw-r--r-- | ext/attrs/attrs.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs index 4c00cd7cb2..4914fda8f4 100644 --- a/ext/attrs/attrs.xs +++ b/ext/attrs/attrs.xs @@ -17,14 +17,15 @@ get_flag(char *attr) MODULE = attrs PACKAGE = attrs void -import(Class, ...) -char * Class +import(...) ALIAS: unimport = 1 PREINIT: int i; CV *cv; PPCODE: + if (items < 1) + Perl_croak(aTHX_ "Usage: %s(Class, ...)", GvNAME(CvGV(cv))); if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv))) croak("can't set attributes outside a subroutine scope"); if (ckWARN(WARN_DEPRECATED)) |