Hallo Dan,

Am Sonntag, 21. September 2003 um 04:16 schriebst du:

> At 5:35 PM -0700 9/20/03, Steve Fink wrote:
>>On Sep-20, Steve Fink wrote:
>>>  At long last, Parrot-0.0.11 "Doubloon" has been released!
>>
>>And so has Parrot-0.0.11.1, for those of you who want correct native
>>bytecode tests!
>>
>>http://cpan.perl.org/authors/id/S/SF/SFINK/parrot-0.0.11.1.tar.gz
>>
>>Hmm... for symmetry, I'm now thinking I ought to have called it
>>parrot-0.00.11.1.tar.gz.

> And all we need now is a 0.0.11.2, with patches to allow four-element 
> version numbers...

$ diff -urd parrot-0.0.11.1/lib/Parrot/BuildUtil.pm~ 
parrot-0.0.11.1/lib/Parrot/BuildUtil.pm
--- parrot-0.0.11.1/lib/Parrot/BuildUtil.pm~    2003-09-21 13:11:56.463108800 +0200
+++ parrot-0.0.11.1/lib/Parrot/BuildUtil.pm     2003-09-21 13:11:28.593033600 +0200
@@ -42,11 +42,11 @@
 
   @parrot_version = split(/\./, $parrot_version);
 
-  die "Too few components to VERSION file contents: '$parrot_version' (should be 3)!"
+  die "Too few components to VERSION file contents: '$parrot_version' (should be 3 || 
4)!"
     if scalar(@parrot_version) < 3;
 
-  die "Too many components to VERSION file contents: '$parrot_version' (should be 3)!"
-    if scalar(@parrot_version) > 3;
+  die "Too many components to VERSION file contents: '$parrot_version' (should be 3 
|| 4)!"
+    if scalar(@parrot_version) > 4;
 
   foreach (@parrot_version) {
     die "Illegal version component: '$_' in VERSION file!"


Gerrit
-- 
=^..^=

Reply via email to