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

[petdance]

Author: petdance
Date: Sat Dec 20 21:22:34 2008
New Revision: 34185

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

Log:
simplified a regex

Modified: trunk/lib/Parrot/Pmc2c/Method.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Method.pm    (original)
+++ trunk/lib/Parrot/Pmc2c/Method.pm    Sat Dec 20 21:22:34 2008
@@ -94,7 +94,7 @@
     return $1  if $char =~ /([ISP])/;
     return 'N' if $char eq 'F';
     return 'v' if $type eq 'void';
-    return 'V' if $type =~ /void\s*\*\s*/;
+    return 'V' if $type =~ /void\s*\*/;
     return 'P' if $type =~ /opcode_t\*/;
     return 'I' if $type =~ /int(val)?/i;
     return '?';