bad event type or keysym "_" at PMEdit-001.000202-1.pl line 269, <DATA> line 81.

##</code><code>##

1057 sub LoadConfig {
1058     my $ok = 1;
1059
1060     while (<DATA>) {
1061         # Load the default configuration stuff
1062         chomp;
1063         next if ! length;
     ...
1067         my ($tag, $htmlTag, $name, $flagsField, @options) = split /\s*,\s*/;
1068
1069         if (! defined $flagsField) {
1070             print "Missing entries in tag line ($.): $_";
     ...

##</code><code>##

1136     while (<DATA>) {
1137         # Load key binding information
1138         next if /^#/;
1139
1140         chomp;
1141         s/^\s+//;
1142         s/\s+$//;

##</code><code>##

--- PMEdit-001.000202-1.pl--ORIG	Fri Dec  1 00:57:17 2006
+++ PMEdit-001.000202-1.pl	Fri Dec  1 02:44:20 2006
@@ -225,7 +225,7 @@
 my %commands = (
     selAll => \&do_selAll,
     copy => \&do_copy,
-	paste => \&do_paste,
+    paste => \&do_paste,
     );
 
 my $realText = $text->Subwidget ('scrolled');
@@ -766,13 +766,13 @@
 sub about {
     my $versions = '';
     for (@usedModules) {
-	my $name = $_->[1];
+        my $name = $_->[1];
 
-	$name =~ s/\..*//;
-	$name =~ s|[\\/]|::|g;
+        $name =~ s/\..*//;
+        $name =~ s|[\\/]|::|g;
 
-	my $version = $name->VERSION;
-	$versions .= "$name \t$version\n" if defined $version;
+        my $version = $name->VERSION;
+        $versions .= "$name \t$version\n" if defined $version;
     }
 
     my $msg = <<"MSG";
@@ -1059,7 +1059,7 @@
 
     while (<DATA>) {
         # Load the default configuration stuff
-        chomp;
+        s/\s+$//;
         next if ! length;
         last if /^#key /;
         next if /^#/;
@@ -1136,11 +1136,10 @@
     while (<DATA>) {
         # Load key binding information
         next if /^#/;
-        
-        chomp;
+
         s/^\s+//;
         s/\s+$//;
-        
+
         next if ! length;
 
         my ($tag, $key, $menuItem, $toolbarItem, $rightClickItem) = split /\s*,\s*/;
@@ -1239,7 +1238,7 @@
 strike,Control s,Format/Strike out,,Strike out
 sub,Control u,Format/Subscript,,Subscript
 super,Control s,Format/Superscript,,Superscript
-underline,Control _,Format/Underline,,Underline
+underline,Control 9,Format/Underline,,Underline
 -,-,Format/-,-,
 code,Control k,Format/Code,,Code
 quote,Control q,Format/Blockquote,,Blockquote
@@ -1247,4 +1246,4 @@
 #links - still bindings
 cpan,,Links/CPAN,,CPAN link
 id,Control d,Links/Node,,Node id link
-name,Control n,Links/Name,,Node name link
\ No newline at end of file
+name,Control n,Links/Name,,Node name link