Changeset e20dd769 for stubgen.pl

Timestamp:

Jun 1, 2010, 8:27:39 PM (14 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

5b80b87

Parents:

04d76ef

Message:

Actually construct the notifier and avoid invalid property names

-follow is not a valid property name.

File:

• stubgen.pl (modified) (1 diff)

stubgen.pl

@@ -14 +14 @@
     my $detailname = $altvarname;
     $detailname =~ s/[^a-zA-Z0-9]/-/g;
+    $detailname =~ s/^[^a-zA-Z]+//;
     if ($vartype =~ /^BOOL/) {
         print <<EOT;