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

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Wed Feb 24 02:55:51 2010
New Revision: 44440
URL: https://trac.parrot.org/parrot/changeset/44440

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

Modified:
   trunk/t/native_pbc/integer.t

Modified: trunk/t/native_pbc/integer.t
==============================================================================
--- trunk/t/native_pbc/integer.t	Wed Feb 24 02:52:27 2010	(r44439)
+++ trunk/t/native_pbc/integer.t	Wed Feb 24 02:55:51 2010	(r44440)
@@ -90,7 +90,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: $!";