This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: ext/ + -Wall
authorDoug MacEachern <dougm@covalent.net>
Tue, 12 Jun 2001 09:38:09 +0000 (02:38 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 13 Jun 2001 00:40:29 +0000 (00:40 +0000)
Message-ID: <Pine.LNX.4.21.0106120927100.24181-100000@mako.covalent.net>

p4raw-id: //depot/perl@10547

ext/attrs/attrs.xs

index 4914fda..142f09a 100644 (file)
@@ -22,7 +22,6 @@ import(...)
        unimport = 1
     PREINIT:
        int i;
        unimport = 1
     PREINIT:
        int i;
-       CV *cv;
     PPCODE:
        if (items < 1)
            Perl_croak(aTHX_ "Usage: %s(Class, ...)", GvNAME(CvGV(cv)));
     PPCODE:
        if (items < 1)
            Perl_croak(aTHX_ "Usage: %s(Class, ...)", GvNAME(CvGV(cv)));