[8438] line directives for file input only

[gavinsmith0123]

Revision: 8438
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8438
Author:   gavin
Date:     2018-10-27 18:59:13 -0400 (Sat, 27 Oct 2018)
Log Message:
-----------
line directives for file input only

Modified Paths:
--------------
    trunk/tp/Texinfo/Parser.pm

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-10-27 22:47:25 UTC (rev 8437)
+++ trunk/tp/Texinfo/Parser.pm  2018-10-27 22:59:13 UTC (rev 8438)
@@ -3408,6 +3408,7 @@
   my ($self, $line, $line_nr) = @_;
 
   if ($self->{'CPP_LINE_DIRECTIVES'}
+      and defined($line_nr->{'name'})
       and !$line_nr->{'macro'}
       and $line =~ /^\s*#\s*(line)? (\d+)(( "([^"]+)")(\s+\d+)*)?\s*$/) {
     _save_line_directive ($self, $2, $5);