cleanup

bk: 4f302cb9fNsC70jcrOn-J2Fjg_UnHA

diff --git a/sntp/ag-tpl/texi2txt b/sntp/ag-tpl/texi2txt
index 4825e35cc327934b744ab09948099dfc41f62642..44ae953d585fc066c1b8ce3bb1dd3a5a28f14550 100755 (executable)
--- a/sntp/ag-tpl/texi2txt
+++ b/sntp/ag-tpl/texi2txt
@@ -38,7 +38,7 @@ sub OverStrike ($$$) {
 sub UnderLine ($$$) {
   my ($pre, $src, $post) = @_;
   my @src = split(//, $src);
-  my $tgt;
+  my $tgt = "";
 
   # We don't need to underline any BS chars.
   for my $c ( @src ) {
@@ -62,7 +62,6 @@ sub ProcessToken ($) { #line
 
     $_ = UnderLine($1,$3,$4)
       if (/(.*)@(i|file|emph){([^}]*)}(.*)/);
-    }
 
     $_ = OverStrike($1,$3,$4)
       if (/(.*)@(code|var|option|samp|strong){([^}]*)}(.*)/);
@@ -76,6 +75,5 @@ sub ProcessToken ($) { #line
 
 while (<STDIN>)
 {
-  chomp;
-  print ProcessToken($_)."\n";
+  print ProcessToken($_);
 };