texinfo/tp/t/init t2h_singular.init

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/01/12 00:23:27

Modified files:
        tp/t/init      : t2h_singular.init 

Log message:
        Handle better missing @set.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/init/t2h_singular.init?cvsroot=texinfo&r1=1.5&r2=1.6

Patches:
Index: t2h_singular.init
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/init/t2h_singular.init,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- t2h_singular.init   7 Nov 2011 22:19:21 -0000       1.5
+++ t2h_singular.init   12 Jan 2012 00:23:26 -0000      1.6
@@ -113,6 +113,8 @@
   my $program_and_version = $self->get_conf('PACKAGE_AND_VERSION');
   my $version = $self->get_value('VERSION');
   my $version_date = $self->get_value('VERSION_DATE');
+  $version = 'NO VERSION' if (!defined($version));
+  $version_date = 'NO VERSION DATE' if (!defined($version_date));
   my $result = '
 <font size="-1">
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; User manual for <a 
href="http://www.singular.uni-kl.de/";><i>Singular</i></a> version '."$version, 
$version_date,
@@ -251,6 +253,8 @@
   my $element = shift;
   my $version = $self->get_value('VERSION');
   my $version_date = $self->get_value('VERSION_DATE');
+  $version = 'NO VERSION' if (!defined($version));
+  $version_date = 'NO VERSION DATE' if (!defined($version_date));
   my $program_homepage = $self->get_conf('PACKAGE_URL');
   my $program_and_version = $self->get_conf('PACKAGE_AND_VERSION');
   my $result = '';