[groff] 04/15: [gropdf]: Drop unused `Load_Config` subroutine.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit f34e4b7f2441b80cc21d22d32ee6519c5b020029
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sat Jun 4 12:34:03 2022 -0500

    [gropdf]: Drop unused `Load_Config` subroutine.
    
    * src/devices/gropdf/gropdf.pl (Load_Config): Drop unused subroutine and
      its commented-out call site, which came in that way in July 2011.
---
 ChangeLog                    |  6 ++++++
 src/devices/gropdf/gropdf.pl | 17 -----------------
 2 files changed, 6 insertions(+), 17 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4189edfb..a6357fdb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-06-04  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * src/devices/gropdf/gropdf.pl (Load_Config): Drop unused
+       subroutine and its commented-out call site, which came in that
+       way in July 2011.
+
 2022-06-04  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/devices/gropdf/gropdf.pl (LoadFont): Warn if a font to be
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 30c358a3..495d99e1 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -209,8 +209,6 @@ my $stats=0;
 my $unicodemap;
 my @idirs;
 
-#Load_Config();
-
 GetOptions("F=s" => \$fd, 'I=s' => \@idirs, 'l' => \$frot, 'p=s' => \$fpsz, 
'd!' => \$debug, 'v' => \$version, 'version' => \$version, 'e' => \$embedall, 
'y=s' => \$Foundry, 's' => \$stats, 'u:s' => \$unicodemap);
 
 unshift(@idirs,'.');
@@ -609,21 +607,6 @@ sub ToPoints
     }
 }
 
-sub Load_Config
-{
-    open(CFG,"<gropdf_config") or die "Can't open config file: $!";
-
-    while (<CFG>)
-    {
-       chomp;
-       my ($key,$val)=split(/ ?= ?/);
-
-       $cfg{$key}=$val;
-    }
-
-    close(CFG);
-}
-
 sub LoadDownload
 {
     my $f;