Change 26780 by [EMAIL PROTECTED] on 2006/01/11 11:53:07
Fix the new warning created with version-0.53
Affected files ...
... //depot/perl/pod/perldiag.pod#433 edit
... //depot/perl/util.c#532 edit
Differences ...
==== //depot/perl/pod/perldiag.pod#433 (text) ====
Index: perl/pod/perldiag.pod
--- perl/pod/perldiag.pod#432~26631~ 2006-01-03 19:31:08.000000000 -0800
+++ perl/pod/perldiag.pod 2006-01-11 03:53:07.000000000 -0800
@@ -4711,6 +4711,11 @@
its equivalent C<BEGIN> block found an internal inconsistency with
the version number.
+=item Version string '%s' contains invalid data; ignoring: '%s'
+
+(W misc) The version string contains invalid characters, so it is
+being ignored.
+
=item v-string in use/require is non-portable
(W portable) The use of v-strings is non-portable to older, pre-5.6, Perls.
==== //depot/perl/util.c#532 (text) ====
Index: perl/util.c
--- perl/util.c#531~26777~ 2006-01-10 19:22:57.000000000 -0800
+++ perl/util.c 2006-01-11 03:53:07.000000000 -0800
@@ -4246,9 +4246,11 @@
version = savepv(SvPV_nolen(ver));
}
s = scan_version(version, ver, qv);
- if ( *s != '\0' )
- Perl_warn(aTHX_ "Version string '%s' contains invalid data; "
- "ignoring: '%s'", version, s);
+ if ( *s != '\0' )
+ if(ckWARN(WARN_MISC))
+ Perl_warner(aTHX_ packWARN(WARN_MISC),
+ "Version string '%s' contains invalid data; "
+ "ignoring: '%s'", version, s);
Safefree(version);
return ver;
}
End of Patch.
