diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 22:22:08 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-23 06:04:42 -0800 |
commit | 47a0660e68fc38d8d2ff11855d0d5fa5e2af0b82 (patch) | |
tree | 43a9f745c4034df65161286e482d1c11cb557770 /sv.c | |
parent | e628fd8c63a09bb2d42cbb37ed8ce144da3bb5ee (diff) | |
download | perl-47a0660e68fc38d8d2ff11855d0d5fa5e2af0b82.tar.gz |
printf "%vd", "version" should not SEGV
See perl #102586.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10343,7 +10343,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, * back into v-string notation and then let the * vectorize happen normally */ - if (sv_derived_from(vecsv, "version")) { + if (sv_derived_from(vecsv, "version") && SvROK(vecsv)) { char *version = savesvpv(vecsv); if ( hv_exists(MUTABLE_HV(SvRV(vecsv)), "alpha", 5 ) ) { Perl_warner(aTHX_ packWARN(WARN_INTERNAL), |