--- pgpverify-1.12.orig	Tue Dec 28 20:17:21 1999
+++ pgpverify-1.12	Wed Jun  9 19:49:33 1999
@@ -71,6 +71,7 @@
 # if you keep your keyring somewhere that is not the default used by pgp,
 # uncomment the next line and set appropriately.
 # $ENV{'PGPPATH'} = '/path/to/your/pgp/config';
+$ENV{'PGPPATH'} = '/var/lib/news/.pgp';
 
 $tmpdir = "/tmp";
 $lockdir = $tmpdir;
@@ -225,8 +226,9 @@
 (stat(_))[3] == 1 ||
   &fail("$0: $tmp has hard links, possible security violation attempt\n");
 
-seek(TMP, 0, 0);                # make sure pointer is at beginning of file
-truncate(TMP, 0);               # make sure file is zero length
+## ignore in perl4
+## seek(TMP, 0, 0);                # make sure pointer is at beginning of file
+## truncate(TMP, 0);               # make sure file is zero length
 
 print TMP $message;
 close(TMP) || &errmsg("$0: close > $tmp: $!\n");
@@ -342,9 +344,10 @@
       # to use a Unix domain socket to talk to syslogd, which is
       # the only way to do it when syslog runs with the -l switch.
       if ($syslog_method eq "unix") {
-        if ($^O eq "dec_osf") {
-          sub Sys::Syslog::_PATH_LOG { "/dev/log" }
-        }
+## ignore in perl4
+##        if ($^O eq "dec_osf") {
+##          sub Sys::Syslog::_PATH_LOG { "/dev/log" }
+##        }
         if ($] <= 5.00403 || ! eval "setlogsock('unix')") {
           warn $date, "$0: cannot use syslog_method 'unix' on this system\n";
           $syslog = '';