diff options
| author | Steven Schubiger <schubiger@cpan.org> | 2008-01-28 14:57:41 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-29 10:53:24 +0000 |
| commit | 15f169a1089447c7f805778ce6caca1f591d50fc (patch) | |
| tree | 4e877ff4d4bd53b0c6252731956248745aa804dd /universal.c | |
| parent | 7a823c1420312961bad15bc476b3491938f28870 (diff) | |
| download | perl-15f169a1089447c7f805778ce6caca1f591d50fc.tar.gz | |
toke.c/universal.c: consting
Message-ID: <20080128125741.GA27390@refcnt.homeunix.org>
p4raw-id: //depot/perl@33103
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/universal.c b/universal.c index c835286ab0..7298559b68 100644 --- a/universal.c +++ b/universal.c @@ -91,7 +91,7 @@ normal Perl method. */ bool -Perl_sv_derived_from(pTHX_ SV *sv, const char *name) +Perl_sv_derived_from(pTHX_ SV *sv, const char *const name) { dVAR; HV *stash; @@ -131,7 +131,7 @@ The SV can be a Perl object or the name of a Perl class. #include "XSUB.h" bool -Perl_sv_does(pTHX_ SV *sv, const char *name) +Perl_sv_does(pTHX_ SV *sv, const char *const name) { const char *classname; bool does_it; |