texinfo/tp Texinfo/Parser.pm t/results/coverage...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/03/17 20:19:07

Modified files:
        tp/Texinfo     : Parser.pm 
        tp/t/results/coverage_braces: empty_images.pl 

Log message:
        Eror out for empty @image file argument.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.221&r2=1.222
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/coverage_braces/empty_images.pl?cvsroot=texinfo&r1=1.3&r2=1.4

Patches:
Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.221
retrieving revision 1.222
diff -u -b -r1.221 -r1.222
--- Texinfo/Parser.pm   16 Mar 2011 23:35:23 -0000      1.221
+++ Texinfo/Parser.pm   17 Mar 2011 20:19:07 -0000      1.222
@@ -3892,6 +3892,14 @@
                   }
                 }  
               }
+            } elsif ($current->{'parent'}->{'cmdname'} eq 'image') {
+              my $image = $current->{'parent'};
+              if (address@hidden>{'args'}} 
+                  or address@hidden>{'extra'}->{'brace_command_contents'}}
+                  or 
!defined($image->{'extra'}->{'brace_command_contents'}->[0])) {
+                $self->line_error(
+                   $self->__("address@hidden missing filename argument"), 
$line_nr);
+              }
             }
             $self->_register_global_command($current->{'parent'}->{'cmdname'},
                                             $current->{'parent'}, $line_nr);

Index: t/results/coverage_braces/empty_images.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/coverage_braces/empty_images.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- t/results/coverage_braces/empty_images.pl   6 Mar 2011 14:44:00 -0000       
1.3
+++ t/results/coverage_braces/empty_images.pl   17 Mar 2011 20:19:07 -0000      
1.4
@@ -163,7 +163,26 @@
 
 ';
 
-$result_errors{'empty_images'} = [];
+$result_errors{'empty_images'} = [
+  {
+    'error_line' => ':1: @image missing filename argument
+',
+    'file_name' => '',
+    'line_nr' => 1,
+    'macro' => '',
+    'text' => '@image missing filename argument',
+    'type' => 'error'
+  },
+  {
+    'error_line' => ':3: @image missing filename argument
+',
+    'file_name' => '',
+    'line_nr' => 3,
+    'macro' => '',
+    'text' => '@image missing filename argument',
+    'type' => 'error'
+  }
+];
 
 
 1;