Ticket #50949: gphelp.diff

gphelp

@@ -47 +47 @@
 # no expanded material (@key@) below
 $wwwsite= "http://pari.math.u-bordeaux.fr/";
 
-$xdvi = $ENV{GPXDVI} || "xdvi";
+$xdvi = $ENV{GPXDVI} || "open";
 $xdviref = $ENV{GPXDVIREF} || "$xdvi -paper 29.7x21cm";
 $gzip = "gzip";
 $zcat = "$gzip -dc";
 $bzip = "bzip2";
 $bzcat = "$bzip -dc";
 $docdir = &get_docdir();
-$tex = $ENV{GPTEX} || "tex";
+$tex = $ENV{GPTEX} || "pdftex";
 
 $refcard = (@ARGV and $ARGV[-1] =~ /refcard/i);
 
@@ -438 +438 @@
 sub posttex {
   my ($wrap) = "$tmpdir/gpwrapper.help";
   my (@goners) = ("$texfile.tex",
-                  "$wrap.tex", "$wrap.dvi", "$wrap.log", "$wrap.aux");
+                  "$wrap.tex", "$wrap.dvi", "$wrap.pdf", "$wrap.log", "$wrap.aux");
   if (!$found) { unlink @goners; rmdir("$tmpdir"); cleanexit(); }
 
   open(WRAP, ">$wrap.tex") || die "Couldn't open $wrap.tex";
@@ -470 +470 @@
 
   chdir($tmpdir);
   $out = `$tex $wrap.tex 2>&1 < /dev/null`;
-  -f "$wrap.dvi"
-    || die "could not create '$wrap.dvi': status=$?, $out";
+  -f "$wrap.pdf"
+    || die "could not create '$wrap.pdf': status=$?, $out";
   safe_setsid();
   my ($goners) = join(" ", @goners);
-  system("($xdvi $wrap.dvi 2>/dev/null >/dev/null; rm -f $goners; rmdir $tmpdir)&");
+#  system("($xdvi $wrap.dvi 2>/dev/null >/dev/null; rm -f $goners; rmdir $tmpdir)&");
+  system("($xdvi $wrap.pdf 2>/dev/null >/dev/null; rm -f $goners; rmdir $tmpdir)&");
 }
 
 #