Changeset 11983
- Timestamp:
- 07/24/10 20:05:04 (19 months ago)
- File:
-
- 1 edited
-
trunk/tools/parse_wxwidgets_docs.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/parse_wxwidgets_docs.pl
r11982 r11983 129 129 my $method = $2; 130 130 if($method eq "wx$1") { 131 # C ++ constructor... convert to Perl::new131 # Convert C++ constructor to ::new 132 132 $name = $class . '::new'; 133 } elsif ($method =~ /operator.+/) { 133 } elsif($method =~ /^~.+/) { 134 # Convert C++ destructor to ::DESTROY 135 $name = $class . '::DESTROY'; 136 } elsif ($method =~ /^operator.+/) { 134 137 # Ignore operators 135 138 $name = undef;
Note: See TracChangeset
for help on using the changeset viewer.
