[Debian-tex-commits] SVN tex-common commit + diffs: r2945 - tex-common/trunk/scripts

[Norbert Preining]

Author: preining
Date: 2007-06-05 16:03:22 +0000 (Tue, 05 Jun 2007)
New Revision: 2945

Modified:
   tex-common/trunk/scripts/Tpm.pm
Log:
remove a warning of uninitialized element in Tpm.pm


Modified: tex-common/trunk/scripts/Tpm.pm
===================================================================
--- tex-common/trunk/scripts/Tpm.pm	2007-06-05 16:00:22 UTC (rev 2944)
+++ tex-common/trunk/scripts/Tpm.pm	2007-06-05 16:03:22 UTC (rev 2945)
@@ -255,6 +255,7 @@
 
   my %s = getTextField($doc, $f);
   my $str = $s{"text"};
+  $str = "" if (!defined($str));
   $str =~ s/^\n*//;
   $str =~ s/\n*$//;
   $str =~ s/\n/ /gomsx;