diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-04-05 14:52:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-05 14:52:05 +0000 |
| commit | 0723351e0aae3b4ed046fabd41bf188a3d6a77df (patch) | |
| tree | 78420d4948893ca1c06f6944bb3936f685201e53 /universal.c | |
| parent | a6c0611711f1e672f5a8bc135ac604baafe03a0a (diff) | |
| download | perl-0723351e0aae3b4ed046fabd41bf188a3d6a77df.tar.gz | |
Down with C++ reserved names
(and also function pointer declarations that rely on the C semantics
of ())
p4raw-id: //depot/perl@24165
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 149355f8a4..a90ba5d58f 100644 --- a/universal.c +++ b/universal.c @@ -398,7 +398,7 @@ XS(XS_version_new) Perl_croak(aTHX_ "Usage: version::new(class, version)"); SP -= items; { - const char *class = SvPV_nolen(ST(0)); + const char *classname = SvPV_nolen(ST(0)); SV *vs = ST(1); SV *rv; if (items == 3 ) @@ -408,8 +408,8 @@ XS(XS_version_new) } rv = new_version(vs); - if ( strcmp(class,"version") != 0 ) /* inherited new() */ - sv_bless(rv, gv_stashpv(class,TRUE)); + if ( strcmp(classname,"version") != 0 ) /* inherited new() */ + sv_bless(rv, gv_stashpv(classname,TRUE)); PUSHs(sv_2mortal(rv)); PUTBACK; |