[svn:parrot] r44441 - trunk/t/native_pbc

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Wed Feb 24 02:56:39 2010
New Revision: 44441
URL: https://trac.parrot.org/parrot/changeset/44441

Log:
perlcritic.t objected to prototypes in Perl 5 subroutines.  Modify subroutine to not use prototypes.

Modified:
   trunk/t/native_pbc/number.t

Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t	Wed Feb 24 02:55:51 2010	(r44440)
+++ trunk/t/native_pbc/number.t	Wed Feb 24 02:56:39 2010	(r44441)
@@ -132,7 +132,7 @@
       . "_"
       . (substr($PConfig{byteorder},0,2) eq '12' ? "le" : "be");
 }
-sub bc_version($) {
+sub bc_version {
     my $f = shift;
     my $b;
     open my $F, "<", "$f" or return "Can't open $f: $!";