diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-01 18:16:56 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-02 08:17:29 +0000 |
| commit | 616d8c9c7dee8ffe0d25891708d3380cabc2db84 (patch) | |
| tree | 4e1a9a0cc5de7976381c0d524bbe41f304263246 /util.c | |
| parent | 2d99a18158f05eca46c81c61c1d5e7d024632616 (diff) | |
| download | perl-616d8c9c7dee8ffe0d25891708d3380cabc2db84.tar.gz | |
use lengths in sv_setpv() calls
Message-ID: <20050602041656.GA3000@petdance.com>
p4raw-id: //depot/perl@24669
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2735,13 +2735,13 @@ Perl_same_dirent(pTHX_ const char *a, const char *b) if (strNE(a,b)) return FALSE; if (fa == a) - sv_setpv(tmpsv, "."); + sv_setpvn(tmpsv, ".", 1); else sv_setpvn(tmpsv, a, fa - a); if (PerlLIO_stat(SvPVX_const(tmpsv), &tmpstatbuf1) < 0) return FALSE; if (fb == b) - sv_setpv(tmpsv, "."); + sv_setpvn(tmpsv, ".", 1); else sv_setpvn(tmpsv, b, fb - b); if (PerlLIO_stat(SvPVX_const(tmpsv), &tmpstatbuf2) < 0) |