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

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Wed Feb 24 02:57:22 2010
New Revision: 44442
URL: https://trac.parrot.org/parrot/changeset/44442

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

Modified:
   trunk/t/native_pbc/string.t

Modified: trunk/t/native_pbc/string.t
==============================================================================
--- trunk/t/native_pbc/string.t	Wed Feb 24 02:56:39 2010	(r44441)
+++ trunk/t/native_pbc/string.t	Wed Feb 24 02:57:22 2010	(r44442)
@@ -58,7 +58,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: $!";