[8036] remove unused call to pgettext

[gavinsmith0123]

Revision: 8036
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8036
Author:   gavin
Date:     2018-08-09 16:24:09 -0400 (Thu, 09 Aug 2018)
Log Message:
-----------
remove unused call to pgettext

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Report.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-08-09 19:07:12 UTC (rev 8035)
+++ trunk/ChangeLog     2018-08-09 20:24:09 UTC (rev 8036)
@@ -1,5 +1,9 @@
 2018-08-09  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Report.pm (gdt): Remove unused call to pgettext.
+
+2018-08-09  Gavin Smith  <address@hidden>
+
        * tp/t/60macro.t (line_after_recursive_call): New test.
 
 2018-08-09  Gavin Smith  <address@hidden>

Modified: trunk/tp/Texinfo/Report.pm
===================================================================
--- trunk/tp/Texinfo/Report.pm  2018-08-09 19:07:12 UTC (rev 8035)
+++ trunk/tp/Texinfo/Report.pm  2018-08-09 20:24:09 UTC (rev 8036)
@@ -1,6 +1,7 @@
 # Report.pm: prepare error messages and translate strings.
 #
-# Copyright 2010, 2011, 2012, 2014 Free Software Foundation, Inc.
+# Copyright 2010, 2011, 2012, 2014, 2015, 2016, 2017, 2018 Free Software 
+# Foundation, Inc.
 # 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -309,15 +310,7 @@
 
   Locale::Messages::nl_putenv("LANGUAGE=$locales");
 
-  my $translation_result;
-  if (!defined($context) or ref($context)) {
-    $translation_result = Locale::Messages::gettext($message);
-  } else {
-    # In practice this is not used anywhere, context is always a HASH.
-    # for strings substitution not a context for translation.
-    $translation_result = Locale::Messages::pgettext($context, $message);
-  }
-  #print STDERR "$locales $message ----> $translation_result\n";
+  my $translation_result = Locale::Messages::gettext($message);
 
   Locale::Messages::textdomain($messages_textdomain);
   # old perl complains 'Use of uninitialized value in scalar assignment'