support for version vectors in UNIVERSAL::VERSION(), so that

C<use Foo v1.2.3> etc., work; tests for the same

TODO: XS_VERSION_BOOTCHECK needs to be revisited in light of this

p4raw-id: //depot/perl@5265

1 files changed, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index add96c4013..e26f9f1a63 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -3140,6 +3140,13 @@ Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, S
     ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
 }
 
+#undef  Perl_str_to_version
+NV
+Perl_str_to_version(pTHXo_ SV *sv)
+{
+    return ((CPerlObj*)pPerl)->Perl_str_to_version(sv);
+}
+
 #undef  Perl_swash_init
 SV*
 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)