This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0f76ff5
)
signedness nit in #23190
author
Craig A. Berry
<craigberry@mac.com>
Thu, 5 Aug 2004 13:10:55 +0000
(08:10 -0500)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 6 Aug 2004 06:53:08 +0000
(06:53 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
4112782F
.7040302@mac.com>
p4raw-id: //depot/perl@23197
sv.c
patch
|
blob
|
blame
|
history
diff --git
a/sv.c
b/sv.c
index
bdcd4af
..
bdc6cbb
100644
(file)
--- a/
sv.c
+++ b/
sv.c
@@
-9380,7
+9380,7
@@
Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
if ( *q == 'd' && sv_derived_from(vecsv,"version") )
{
q++; /* skip past the rest of the %vd format */
- eptr = vecstr;
+ eptr =
(char *)
vecstr;
elen = strlen(eptr);
vectorize=FALSE;
goto string;