[svn:parrot] r39260 - trunk/lib/Parrot/Pmc2c

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat May 30 10:32:06 2009
New Revision: 39260
URL: https://trac.parrot.org/parrot/changeset/39260

Log:
[codingstd] fix perlcritic
String delimiter used with "split"

Modified:
   trunk/lib/Parrot/Pmc2c/PMCEmitter.pm

Modified: trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Sat May 30 10:08:07 2009	(r39259)
+++ trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Sat May 30 10:32:06 2009	(r39260)
@@ -963,7 +963,7 @@
     my %multi_methods;
     foreach (@{$self->find_multi_functions}) {
         my ($name, $ssig, $fsig, $ns, $func, $method) = @$_;
-        my @sig = split ',', $fsig;
+        my @sig = split /,/, $fsig;
         push @{ $multi_methods{ $name } }, [ $sig[1], $ssig, $fsig, $ns, $func, $method ];
     }
 
@@ -1007,7 +1007,7 @@
     my $case;
 
     # Gather parameters names
-    my @parameters = map { s/\s*PMC\s*\*\s*//; $_ } split (',', $impl->parameters);
+    my @parameters = map { s/\s*PMC\s*\*\s*//; $_ } split (/,/, $impl->parameters);
     my $parameters = join ', ', @parameters;
 
     if ($type eq 'DEFAULT' || $type eq 'PMC') {