[perl #95544] Make UNIVERSAL::VERSION return $VERSION
authorFather Chrysostomos <sprout@cpan.org>
Wed, 27 Jul 2011 23:09:28 +0000 (16:09 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 28 Jul 2011 00:45:23 +0000 (17:45 -0700)
commit9bf41c1df182ebe0899a6987bf04ea02cb385489
tree7fa1866f3dc5c8739c34f85b39c56803a6f5cdbe
parentc3ea6d286d7ce2cab156ba526ee6161272c45eb3
[perl #95544] Make UNIVERSAL::VERSION return $VERSION

With this patch:
$ ./miniperl -le ' $VERSION = "3alpha"; print "main"->VERSION'
3alpha
$ ./miniperl -le ' $VERSION = "3alpha"; print "main"->VERSION(4)'
Invalid version format (non-numeric data) at -e line 1.

See the discussion starting at:
http://www.nntp.perl.org/group/perl.perl5.porters/2011/06/msg173710.html

Basically, this patch allows custom version parsers to call ->VERSION
to retrieve the version, even if the default parser would choke on it.
universal.c