texlive[56806] Build/source/texk/web2c/ptexdir: pdvitype.ch: fix a

[commits+hironobu at tug.org]

Revision: 56806
          http://tug.org/svn/texlive?view=revision&revision=56806
Author:   hironobu
Date:     2020-10-30 14:17:45 +0100 (Fri, 30 Oct 2020)
Log Message:
-----------
pdvitype.ch: fix a bug in previous commit

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/pdvitype.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-10-30 00:53:56 UTC (rev 56805)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-10-30 13:17:45 UTC (rev 56806)
@@ -1,3 +1,8 @@
+2020-10-30  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* pdvitype.ch: Strict check for DVI ID was wrong for
+	output-level <= 3; needs reconsider.
+
 2020-08-29  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* pdvitype.ch: Support dtou direction. Strict check for DVI ID

Modified: trunk/Build/source/texk/web2c/ptexdir/pdvitype.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/pdvitype.ch	2020-10-30 00:53:56 UTC (rev 56805)
+++ trunk/Build/source/texk/web2c/ptexdir/pdvitype.ch	2020-10-30 13:17:45 UTC (rev 56806)
@@ -286,7 +286,8 @@
   @t\4@>@<Cases for commands |nop|, |bop|, \dots, |pop|@>@;
 @y
   dir: begin
-    if not ptex_p then bad_dvi('dir command within normal dvi file');
+    if not ptex_p and (out_mode=the_works) then
+      bad_dvi('dir command within normal dvi file');
     major('dir ',p:1); dd:=p; goto done;
     end;
   @t\4@>@<Cases for commands |nop|, |bop|, \dots, |pop|@>@;