texinfo/tp/Texinfo Report.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/04/13 22:47:48

Modified files:
        tp/Texinfo     : Report.pm 

Log message:
        Use get_conf.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Report.pm?cvsroot=texinfo&r1=1.6&r2=1.7

Patches:
Index: Report.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Report.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- Report.pm   1 Mar 2011 00:16:34 -0000       1.6
+++ Report.pm   13 Apr 2011 22:47:48 -0000      1.7
@@ -77,7 +77,7 @@
   return if (!defined($line_number));
   my $file = $line_number->{'file_name'};
   # otherwise out of source build fail since the file names are different
-  $file =~ s/^.*\/// if ($self->{'TEST'});
+  $file =~ s/^.*\/// if ($self->get_conf('TEST'));
   my $warn_line;
   if ($line_number->{'macro'} ne '') {
     $warn_line = sprintf($self->__(
@@ -87,7 +87,7 @@
     $warn_line = sprintf($self->__("%s:%d: warning: %s\n"),
                          $file, $line_number->{'line_nr'}, $text);
   }
-  warn $warn_line if ($self->{'DEBUG'});
+  warn $warn_line if ($self->get_conf('DEBUG'));
   push @{$self->{'errors_warnings'}},
        { 'type' => 'warning', 'text' => $text, 'error_line' => $warn_line,
          %{$line_number} };
@@ -103,12 +103,12 @@
   my $continuation = shift;
   if (defined($line_number)) {
     my $file = $line_number->{'file_name'};
-    $file =~ s/^.*\/// if ($self->{'TEST'});
+    $file =~ s/^.*\/// if ($self->get_conf('TEST'));
     my $macro_text = '';
     $macro_text = " (possibly involving address@hidden>{'macro'})"
        if ($line_number->{'macro'} ne '');
     my $error_text = "$file:$line_number->{'line_nr'}: $text$macro_text\n";
-    warn "$error_text" if ($self->{'DEBUG'});
+    warn "$error_text" if ($self->get_conf('DEBUG'));
     my $type = 'error';
     $type = 'error continuation' if ($continuation);
     push @{$self->{'errors_warnings'}},