[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kinosearch-commits
Subject:    [Kinosearch-commits] r3524 -
From:       marvin () rectangular ! com
Date:       2008-06-23 3:49:21
Message-ID: 200806230349.m5N3nKl7023571 () mailer ! progressive-comp ! com
[Download RAW message or body]

Author: creamyg
Date: 2008-06-22 21:01:50 -0700 (Sun, 22 Jun 2008)
New Revision: 3524

Modified:
   trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm
Log:
Loosen criteria for determining object type from type specifier.


Modified: trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm
===================================================================
--- trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm	2008-06-21 23:43:34 UTC (rev 3523)
+++ trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm	2008-06-23 04:01:50 UTC (rev 3524)
@@ -3,7 +3,6 @@
 
 package Boilerplater::Binding::Perl::TypeMap;
 use base qw( Exporter );
-use Boilerplater qw( $prefix $Prefix $PREFIX );
 use Carp;
 use Config;
 
@@ -85,7 +84,7 @@
     }
 
     $type_str =~ s/const\s+//;
-    if ( $type_str =~ /^($prefix[A-Z]\w+)\s*\*\s*$/ ) {
+    if ( $type_str =~ /^((?:[a-z_]*)[A-Z]\w+)\s*\*\s*$/ ) {
         return _from_bp( $bp_var, $c_var, $1 );
     }
 
@@ -103,7 +102,7 @@
     }
 
     $type_str =~ s/const\s+//;
-    if ( $type_str =~ /^($prefix[A-Z]\w+)\s*\*\s*$/ ) {
+    if ( $type_str =~ /^((?:[a-z_]*)[A-Z]\w+)\s*\*\s*$/ ) {
         return _to_bp( $c_var, $bp_var, $1 );
     }
 


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits
[prev in list] [next in list] [prev in thread] [next in thread]