From: Harlan Stenn <stenn@ntp.org>
Date: Mon, 6 Feb 2012 19:40:41 +0000 (+0000)
Subject: cleanup
X-Git-Tag: NTP_4_2_7P269~7
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9c21b5ecb6577c44e68f5479415abc9010486892;p=thirdparty%2Fntp.git

cleanup

bk: 4f302cb9fNsC70jcrOn-J2Fjg_UnHA
---

diff --git a/sntp/ag-tpl/texi2txt b/sntp/ag-tpl/texi2txt
index 4825e35cc..44ae953d5 100755
--- 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($_);
 };