1 | #! perl | 1 | #! perl |
---|---|---|---|
2 | |||
3 | print <<EOF; | ||
4 | // | ||
5 | // AUTOGENERATED: this is a generated file | ||
6 | // edit doc/events.pod instead | ||
7 | // | ||
8 | |||
9 | EOF | ||
2 | 10 | ||
3 | while (<>) { | 11 | while (<>) { |
4 | if (/^=head2 (\S+) EVENTS/) { | 12 | if (/^=head2 (\S+) EVENTS/) { |
5 | $klass = $1; | 13 | $klass = $1; |
6 | } elsif (/=head3 (\S+)\s*(.*)/) { | 14 | } elsif (/=head3 (\S+)\s*(.*)/) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |