| 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 |