diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-18 09:24:42 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-18 09:24:42 +0000 |
| commit | 9bde8eb087a2c05d4c8b0394a59d28a09fe5f529 (patch) | |
| tree | 998a51c8de29afbe6509961978c7b5b6d5b5f1d9 /gv.c | |
| parent | b64cb68ca7e876fc8f2b14e3631335667b719e7e (diff) | |
| download | perl-9bde8eb087a2c05d4c8b0394a59d28a09fe5f529.tar.gz | |
Where possible, change gv_fetchfile() to gv_fetchfile_flags(),
gv_stashpv() to gv_stashpvn() and gv_fetchpv() to gv_fetchpvn_flags().
Change the len parameter of S_find_in_my_stash() from I32 to STRLEN, as
a pointer the variable needs to be passed onwards, and size matters on
64 bit platforms.
Fix the temporary scribbling of a buffer in Perl_yylex() by using
gv_fetchpvn_flags(), and remove the XXX comment added in change 27641.
Brought to you by the Campaign for the Elimination of strlen().
p4raw-id: //depot/perl@32127
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1426,7 +1426,8 @@ Perl_gv_check(pTHX_ const HV *stash) #ifdef USE_ITHREADS CopFILE(PL_curcop) = (char *)file; /* set for warning */ #else - CopFILEGV(PL_curcop) = gv_fetchfile(file); + CopFILEGV(PL_curcop) + = gv_fetchfile_flags(file, HEK_LEN(GvFILE_HEK(gv)), 0); #endif Perl_warner(aTHX_ packWARN(WARN_ONCE), "Name \"%s::%s\" used only once: possible typo", |