develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
petdance
Date:
December 20, 2008 21:22
Subject:
[svn:parrot] r34185 - trunk/lib/Parrot/Pmc2c
Message ID:
20081221052235.6EFC2CBA12@x12.develooper.com
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 '?';



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About