X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/7ba26d48121ff365601a73eefc7798693a3a9118..85ca3be751f142ad43c1dabcac68ab17a69c4c4d:/sv.c

diff --git a/sv.c b/sv.c
index ae97f1d..cf29ffa 100644
--- a/sv.c
+++ b/sv.c
@@ -10354,7 +10354,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") && SvROK(vecsv)) {
+		if (sv_isobject(vecsv) && sv_derived_from(vecsv, "version")) {
 		    char *version = savesvpv(vecsv);
 		    if ( hv_exists(MUTABLE_HV(SvRV(vecsv)), "alpha", 5 ) ) {
 			Perl_warner(aTHX_ packWARN(WARN_INTERNAL),