[Po4a-commits] po4a/lib/Locale/Po4a Common.pm,1.3,1.4

[Martin Quinson]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv22938

Modified Files:
	Common.pm 
Log Message:
Avoid shifting and thus speedup

Index: Common.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Common.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Common.pm	13 Feb 2005 12:38:28 -0000	1.3
+++ Common.pm	3 Mar 2005 09:49:20 -0000	1.4
@@ -33,10 +33,7 @@
 use Text::WrapI18N qw(wrap $columns);
 
 sub min {
-	my ($a, $b) = (shift, shift);
-
-	if ($a < $b) { return $a; }
-	else { return $b; }
+    return $_[0] < $_[1] ? $_[0] : $_[1];
 }
 
 =head1 FUNCTIONS