develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r34855 - branches/assert_args/tools/build

From:
infinoid
Date:
January 2, 2009 22:13
Subject:
[svn:parrot] r34855 - branches/assert_args/tools/build
Message ID:
20090103061343.F3035CB9FA@x12.develooper.com
Author: infinoid
Date: Fri Jan  2 22:13:43 2009
New Revision: 34855

Modified:
   branches/assert_args/tools/build/headerizer.pl

Log:
[headerizer] Fix for generating asserts for "array[]" arguments.

Modified: branches/assert_args/tools/build/headerizer.pl
==============================================================================
--- branches/assert_args/tools/build/headerizer.pl	(original)
+++ branches/assert_args/tools/build/headerizer.pl	Fri Jan  2 22:13:43 2009
@@ -310,6 +310,8 @@
                 # try to isolate the variable's name;
                 # strip off everything before the final space or asterisk.
                 $var =~ s[.+[* ]([^* ]+)$][$1];
+                # strip off a trailing "[]", if any.
+                $var =~ s/\[\]$//;
             }
             push( @asserts, "PARROT_ASSERT_ARG($var)" );
         }



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