[#124 state:committed] Fixing perl warning: Argument "" isn't numeric…

… in numeric lt (<) at /var/www/html/melody/extlib/Locale/Maketext.pm line 62. Signed-off-by: Open Melody Software Group <admin@openmelody.org>
openmelody · Aug 14, 2009 · 5c85b5b · 5c85b5b
1 parent 2a81080
commit 5c85b5b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/extlib/Locale/Maketext.pm b/extlib/Locale/Maketext.pm
@@ -30,8 +30,9 @@ my %isa_scan = ();
 
 sub quant {
     my($handle, $num, @forms) = @_;
-
+    
     return $num if @forms == 0; # what should this mean?
+    $num ||=0; 
     return $forms[2] if @forms > 2 and $num == 0; # special zeroth case
 
     # Normal case: