texinfo/Pod-Simple-Texinfo pod2texi.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/02/05 19:47:45

Modified files:
        Pod-Simple-Texinfo: pod2texi.pl 

Log message:
        Improve main manual preamble.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/Pod-Simple-Texinfo/pod2texi.pl?cvsroot=texinfo&r1=1.8&r2=1.9

Patches:
Index: pod2texi.pl
===================================================================
RCS file: /sources/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- pod2texi.pl 4 Feb 2012 23:26:11 -0000       1.8
+++ pod2texi.pl 5 Feb 2012 19:47:42 -0000       1.9
@@ -241,10 +241,14 @@
   print $fh '@setfilename '
     .Pod::Simple::Texinfo::_protect_text ($outfile_name)."\n\n";
   print $fh '@documentencoding utf-8'."\n\n";
+  print $fh "address@hidden $top\n\n";
+  print $fh "address@hidden $top\n\n";
+  print $fh "address@hidden";
+  print $fh "address@hidden";
   print $fh "address@hidden Top\n";
   # not escaped on purpose, user may want to use @-commands
   print $fh "address@hidden $top\n\n";
-  print $fh "address@hidden";
+  print $fh "address@hidden ifnottex\n\n";
   foreach my $include (@included) {
     my $file = $include->[1];
     print $fh "address@hidden ".Pod::Simple::Texinfo::_protect_text 
($file)."\n";