pkgsrc-Changes archive

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Old Index]

CVS commit: [pkgsrc-2024Q1] pkgsrc/net/mirror



Module Name:    pkgsrc
Committed By:   bsiegert
Date:           Mon Apr 22 18:28:54 UTC 2024

Modified Files:
        pkgsrc/net/mirror [pkgsrc-2024Q1]: Makefile distinfo
        pkgsrc/net/mirror/patches [pkgsrc-2024Q1]: patch-ac patch-ad patch-ae
            patch-ag
Added Files:
        pkgsrc/net/mirror/patches [pkgsrc-2024Q1]: patch-lsparse.pl

Log Message:
Pullup ticket #6846 - requested by bouyer
net/mirror: build fix

Revisions pulled up:
- net/mirror/Makefile                                           1.47
- net/mirror/distinfo                                           1.10-1.11
- net/mirror/patches/patch-ac                                   1.6
- net/mirror/patches/patch-ad                                   1.6
- net/mirror/patches/patch-ae                                   1.8-1.9
- net/mirror/patches/patch-ag                                   1.3
- net/mirror/patches/patch-lsparse.pl                           1.1

---
   Module Name: pkgsrc
   Committed By:        bouyer
   Date:                Thu Apr 11 10:23:44 UTC 2024

   Modified Files:
        pkgsrc/net/mirror: Makefile distinfo
        pkgsrc/net/mirror/patches: patch-ac patch-ad patch-ae patch-ag
   Added Files:
        pkgsrc/net/mirror/patches: patch-lsparse.pl

   Log Message:
   Fix warning:
   Old package separator "'" deprecated at ...
   Bump PKGREVISION

---
   Module Name: pkgsrc
   Committed By:        bouyer
   Date:                Thu Apr 11 17:11:01 UTC 2024

   Modified Files:
        pkgsrc/net/mirror: distinfo
        pkgsrc/net/mirror/patches: patch-ae

   Log Message:
   Remove $Id: from patch-ae, so that CVS doesn't change it
   Regen distinfo


To generate a diff of this commit:
cvs rdiff -u -r1.46 -r1.46.14.1 pkgsrc/net/mirror/Makefile
cvs rdiff -u -r1.9 -r1.9.20.1 pkgsrc/net/mirror/distinfo
cvs rdiff -u -r1.5 -r1.5.102.1 pkgsrc/net/mirror/patches/patch-ac
cvs rdiff -u -r1.5 -r1.5.176.1 pkgsrc/net/mirror/patches/patch-ad
cvs rdiff -u -r1.7 -r1.7.102.1 pkgsrc/net/mirror/patches/patch-ae
cvs rdiff -u -r1.2 -r1.2.102.1 pkgsrc/net/mirror/patches/patch-ag
cvs rdiff -u -r0 -r1.1.2.2 pkgsrc/net/mirror/patches/patch-lsparse.pl

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.

Modified files:

Index: pkgsrc/net/mirror/Makefile
diff -u pkgsrc/net/mirror/Makefile:1.46 pkgsrc/net/mirror/Makefile:1.46.14.1
--- pkgsrc/net/mirror/Makefile:1.46     Tue Jun 28 11:35:02 2022
+++ pkgsrc/net/mirror/Makefile  Mon Apr 22 18:28:54 2024
@@ -1,7 +1,7 @@
-# $NetBSD: Makefile,v 1.46 2022/06/28 11:35:02 wiz Exp $
+# $NetBSD: Makefile,v 1.46.14.1 2024/04/22 18:28:54 bsiegert Exp $
 
 DISTNAME=      mirror-2.9
-PKGREVISION=   13
+PKGREVISION=   14
 CATEGORIES=    net
 MASTER_SITES=  # ftp://src.doc.ic.ac.uk/computing/archiving/mirror/
 

Index: pkgsrc/net/mirror/distinfo
diff -u pkgsrc/net/mirror/distinfo:1.9 pkgsrc/net/mirror/distinfo:1.9.20.1
--- pkgsrc/net/mirror/distinfo:1.9      Tue Oct 26 11:06:00 2021
+++ pkgsrc/net/mirror/distinfo  Mon Apr 22 18:28:54 2024
@@ -1,12 +1,13 @@
-$NetBSD: distinfo,v 1.9 2021/10/26 11:06:00 nia Exp $
+$NetBSD: distinfo,v 1.9.20.1 2024/04/22 18:28:54 bsiegert Exp $
 
 BLAKE2s (mirror-2.9.tar.gz) = 9af6c135528b0a26418a229f6f943f70913a07fef1fffa2954685fa2d17e4bb6
 SHA512 (mirror-2.9.tar.gz) = afed2e62b95d1dd52aac32f3a608c0e08813c78d1bed8f5066bc4d6ac031c05ffeb7c7594a1c565dbf015086d7b3a907f35132ea850a3b93c31377e69dfa0654
 Size (mirror-2.9.tar.gz) = 123194 bytes
 SHA1 (patch-aa) = 04ba59e036a946eeff5c1a8cea08465c21a92dd8
 SHA1 (patch-ab) = 09045d218a86890f95e381f355fa61c3dfc34ef0
-SHA1 (patch-ac) = 816da27263d8883bc073f425d95b593c0a6f5ad2
-SHA1 (patch-ad) = 24b9dd4124756d2c058309e306da0ca022719ac6
-SHA1 (patch-ae) = 2efb5c4cc8f25b897d163e28a908b9745a553229
+SHA1 (patch-ac) = 4f018248392769e4da9e87ec16c509b3ac87d0e0
+SHA1 (patch-ad) = 9cbc9ce613cc0588d22186d542012fb911ab166f
+SHA1 (patch-ae) = 75c1433f01da0a38b7983f04d435fce2bb6cc7f7
 SHA1 (patch-af) = d83755dca89242a6822e5531a481b1735089242a
-SHA1 (patch-ag) = 31574a37bb09587ee7496a98c985865127a2fb0e
+SHA1 (patch-ag) = f402c883c3fe8967f7dc6b847969915ae367f678
+SHA1 (patch-lsparse.pl) = 9048fc10b06616c87fa7eafd64eb098e30ac3b7e

Index: pkgsrc/net/mirror/patches/patch-ac
diff -u pkgsrc/net/mirror/patches/patch-ac:1.5 pkgsrc/net/mirror/patches/patch-ac:1.5.102.1
--- pkgsrc/net/mirror/patches/patch-ac:1.5      Mon Sep 12 16:35:43 2011
+++ pkgsrc/net/mirror/patches/patch-ac  Mon Apr 22 18:28:54 2024
@@ -1,14 +1,33 @@
-$NetBSD: patch-ac,v 1.5 2011/09/12 16:35:43 taca Exp $
+$NetBSD: patch-ac,v 1.5.102.1 2024/04/22 18:28:54 bsiegert Exp $
 
 * Fix path for pkgsrc.
 * Use md5(1) instead of sum(1).
 * Add -f option to compress program.
 * Fix deleting remote directories.
 * Fix display of transfer direction.
+* Fix deprecation warning (change ' to ::) for newer perl
 
---- mirror.pl.orig     1998-06-08 10:55:27.000000000 +0000
-+++ mirror.pl
-@@ -104,7 +104,7 @@ $load_defaults = 1;
+--- mirror.pl.orig     2024-04-11 11:08:05.973997402 +0200
++++ mirror.pl  2024-04-11 11:07:48.794686287 +0200
+@@ -38,7 +38,7 @@
+ # Allow for remote_account pasword.
+ # Only one arg to undef, for early perl5's
+ # Use all capitals for file descriptors.
+-# Use ftp'close not ftp'quit
++# Use ftp::close not ftp::quit
+ # Avoid file renaming under MACos
+ # Corrected file deleting.
+ #
+@@ -51,7 +51,7 @@
+ # Allow strip_cr (from Andrew).
+ # More symlink handling...
+ # Set type for vms correctly.
+-# Changed response from ftp'delete, also corrected path used.
++# Changed response from ftp::delete, also corrected path used.
+ #
+ # Revision 2.4  1994/04/29  20:11:09  lmjm
+ # Use correct variable for hostname
+@@ -104,7 +104,7 @@
  # Try to find the default location of various programs via
  # the users PATH then using $extra_path
  if( ! $on_win ){
@@ -17,7 +36,7 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
  }
  if( $extra_path ne '' ){
        $ENV{ 'PATH' } .= $path_sep . $extra_path;
-@@ -159,19 +159,20 @@ if( ! $mail_prog ){
+@@ -159,19 +159,20 @@
  $rm_prog = &find_prog( 'rm' );
  
  # Generate checksums
@@ -42,7 +61,25 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
  unshift( @INC, $dir );
  
  # Debian GNU/Linux stores mirror.defaults in /etc/mirror
-@@ -1022,7 +1023,7 @@ sub do_mirror
+@@ -259,7 +260,7 @@
+ $default{ 'remote_gpass' } = '';
+ $default{ 'timeout' } = 120;  # timeout ftp requests after this many seconds
+ $default{ 'failed_gets_excl' } = ''; # failed messages to ignore while getting,
+-                              # if failed to ftp'get
++                              # if failed to ftp::get
+ $default{ 'ftp_port' } = 21;  # port number of remote ftp daemon
+ $default{ 'proxy' } = 0;      # normally use regular ftp
+ $default{ 'proxy_ftp_port' } = 4514; # default from Sun
+@@ -656,7 +657,7 @@
+               # THIS DOES NOT YET WORK!!!!!
+               $dumped_version = 1;
+               warn "Dumping perl\n";
+-              dump parse_args;
++              CORE::dump parse_args;
+       }
+ 
+       warn "Unknown arg $arg, skipping\n";
+@@ -1022,7 +1023,7 @@
                &pr_variables( "\n" );
        }
        elsif( $package && ! $pretty_print ){
@@ -51,7 +88,177 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
                        &msg( "package=$package $site:$remote_dir -> $local_dir\n");
                }
                else {
-@@ -1807,7 +1808,7 @@ sub get_remote_directory_details
+@@ -1053,10 +1054,10 @@
+ 
+       if( $debug ){
+               # Keep the ftp debugging lower than the rest.
+-              &ftp'debug( $debug - 1);
++              &ftp::debug( $debug - 1);
+       }
+       else {
+-              &ftp'debug( $verbose );
++              &ftp::debug( $verbose );
+       }
+ 
+       if( $recurse_hard ){
+@@ -1069,19 +1070,19 @@
+       }
+ 
+       if( ! $interactive ){
+-              $ftp'showfd = 'STDOUT';
++              $ftp::showfd = 'STDOUT';
+       }
+-      &ftp'set_timeout( $timeout );
+-      &ftp'set_signals( "main'msg" );
++      &ftp::set_timeout( $timeout );
++      &ftp::set_signals( "main'msg" );
+ 
+       # set passive ftp mode
+       if( $passive_ftp ){
+-              $ftp'use_pasv = 1;
++              $ftp::use_pasv = 1;
+       }
+ 
+       # Are we using the SOCKS version of perl?
+       if( $using_socks ){
+-              $chat'using_socks = 1;
++              $chat::using_socks = 1;
+       }
+ 
+       # Useful string in prints
+@@ -1216,13 +1217,13 @@
+       if( $con == 1 ){
+               &msg( "login as $remote_user\n" ) if $debug > 1;
+               $curr_remote_user = $remote_user;
+-              if( ! &ftp'login( $remote_user, $remote_password, $remote_account ) ){
++              if( ! &ftp::login( $remote_user, $remote_password, $remote_account ) ){
+                       &msg( "Cannot login, skipping package\n" );
+                       &disconnect();
+                       &msg( "\n" );
+                       return $exit_status;
+               }
+-              $can_restart = (&ftp'restart(0) == 1);
++              $can_restart = (&ftp::restart(0) == 1);
+               if( $debug > 1 ){
+                       &msg( "Can " . ($can_restart ? '' : "not ") . "do restarts\n" );
+ 
+@@ -1233,7 +1234,7 @@
+               &msg( "Already connected to site $site\n" ) if $debug;
+       }
+ 
+-      if( ! &ftp'type( $text_mode ? 'A' : 'I' ) ){
++      if( ! &ftp::type( $text_mode ? 'A' : 'I' ) ){
+               &msg( "Cannot set type\n" );
+       }
+ 
+@@ -1244,16 +1245,16 @@
+       # setting the namemap functions.
+       if( $remote_fs =~ /vms/i ){
+               $vms = 1;
+-              &ftp'set_namemap( "main'unix2vms", "main'vms2unix" );
++              &ftp::set_namemap( "main'unix2vms", "main'vms2unix" );
+       }
+       else {
+               $vms = 0;
+               # No mapping necessary
+-              &ftp'set_namemap( '' );
++              &ftp::set_namemap( '' );
+       }
+ 
+       if( ! $get_file || $remote_idle ){
+-              local( @rhelp ) = &ftp'site_commands();
++              local( @rhelp ) = &ftp::site_commands();
+               $remote_has_chmod = grep( $_ eq 'CHMOD', @rhelp);
+               $remote_has_rename = grep( $_ eq 'RNFR', @rhelp) && grep( $_ eq 'RNTO', @rhelp);
+               $remote_has_idle = grep( $_ eq 'IDLE', @rhelp);
+@@ -1264,7 +1265,7 @@
+       }
+       
+       if( $remote_has_idle && $remote_idle ){
+-              if( ! &ftp'quote( "site idle $remote_idle" ) ){
++              if( ! &ftp::quote( "site idle $remote_idle" ) ){
+                       &msg( "Cannot set remote idle\n" );
+               }
+               elsif( $debug > 2 ){
+@@ -1273,7 +1274,7 @@
+       }
+ 
+       if( $remote_group ){
+-              if( ! &ftp'quote( "site group $remote_group" ) ){
++              if( ! &ftp::quote( "site group $remote_group" ) ){
+                       &msg( "Cannot set remote group\n" );
+               }
+               elsif( $debug > 2 ){
+@@ -1282,7 +1283,7 @@
+       }
+       
+       if( $remote_gpass ){
+-              if( ! &ftp'quote( "site gpass $remote_gpass" ) ){
++              if( ! &ftp::quote( "site gpass $remote_gpass" ) ){
+                       &msg( "Cannot set remote gpass\n" );
+               }
+               elsif( $debug > 2 ){
+@@ -1496,11 +1497,11 @@
+ {
+       if( $connected ){
+               &msg( "disconnecting from $connected\n" ) if $debug;
+-              if( ! $ftp'fatalerror ){
+-                      &ftp'close();
++              if( ! $ftp::fatalerror ){
++                      &ftp::close();
+               }
+               else {
+-                      &ftp'service_closed();
++                      &ftp::service_closed();
+               }
+       }
+       $connected = '';
+@@ -1524,11 +1525,11 @@
+       &disconnect();
+ 
+       if( $proxy ){
+-          $ftp'proxy = $proxy;
+-          $ftp'proxy_gateway = $proxy_gateway;
+-          $ftp'proxy_ftp_port = $proxy_ftp_port;
++          $ftp::proxy = $proxy;
++          $ftp::proxy_gateway = $proxy_gateway;
++          $ftp::proxy_ftp_port = $proxy_ftp_port;
+       }
+-      $res = &ftp'open( $site, $ftp_port, $retry_call, $attempts );
++      $res = &ftp::open( $site, $ftp_port, $retry_call, $attempts );
+       if( $res == 1 ){
+               # Connected
+               $connected = $site;
+@@ -1544,7 +1545,7 @@
+       if( $debug > 2 ){
+               &msg( " prodding remote ftpd\n" );
+       }
+-      &ftp'pwd();
++      &ftp::pwd();
+ }
+ 
+ # checkout and fixup any regexps.
+@@ -1774,7 +1775,7 @@
+       $remote_type[ 0 ] = 0;
+       $remote_mode[ 0 ] = 0;
+ 
+-      if( $remote_fs !~ /cms/ && ! &ftp'cwd( $remote_dir ) ){
++      if( $remote_fs !~ /cms/ && ! &ftp::cwd( $remote_dir ) ){
+               if( $get_file ){
+                       # no files to get
+                       return 0;
+@@ -1783,8 +1784,8 @@
+               &msg( "Failed to change to remote directory ($remote_dir) trying to create it\n" );
+               &mkdirs( $remote_dir );
+ 
+-              if( ! &ftp'cwd( $remote_dir ) ){
+-                      &msg( "Cannot change to remote directory ($remote_dir) because: $ftp'response\n" );
++              if( ! &ftp::cwd( $remote_dir ) ){
++                      &msg( "Cannot change to remote directory ($remote_dir) because: $ftp::response\n" );
+                       return 0;
+               }
+       }
+@@ -1807,7 +1808,7 @@
                        local( $f );
                        $f = $dirtmp;
                        $f =~ s/($shell_metachars)/\\$1/g;
@@ -60,7 +267,16 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
                }
                if( ! open( DIRTMP, $dirtmp ) ){
                        &msg( "Cannot open $dirtmp\n" );
-@@ -1845,7 +1846,7 @@ sub get_remote_directory_details
+@@ -1827,7 +1828,7 @@
+               }
+ 
+               &msg( " Getting directory listing from remote file $ls_lR_file\n" ) if $debug;
+-              if( ! &ftp'get( $ls_lR_file, $dirtmp, 0 ) ){
++              if( ! &ftp::get( $ls_lR_file, $dirtmp, 0 ) ){
+                       &msg( "Cannot get dir listing file\n" );
+                       return 0;
+               }
+@@ -1845,7 +1846,7 @@
                        $f = $dirtmp;
                        $dirtmp =~ s/\.($sys_compress_suffix|$gzip_suffix|$old_gzip_suffix)$//;
                        $udirtmp =~ s/\.($sys_compress_suffix|$gzip_suffix|$ol_gzip_suffix)$//;
@@ -69,7 +285,163 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
                                &msg( "Cannot uncompress directory listing\n" );
                                return 0;
                        }
-@@ -2760,7 +2761,7 @@ sub transfer_file
+@@ -1860,7 +1861,7 @@
+       }
+       else {
+               $use_ls = 1;
+-              if( ! &ftp'type( 'A' ) ){
++              if( ! &ftp::type( 'A' ) ){
+                       &msg( "Cannot set type to ascii for dir listing, ignored\n" );
+                       $type_changed = 0;
+               }
+@@ -1869,21 +1870,21 @@
+               }
+       }
+       
+-      $lsparse'fstype = $remote_fs;
+-      $lsparse'name = "$site:$package";
++      $lsparse::fstype = $remote_fs;
++      $lsparse::name = "$site:$package";
+       
+       if( $use_ls ){
+               local( $flags ) = $flags_nonrecursive;
+               if( $recursive && ! $recurse_hard ){
+                       $flags = $flags_recursive;
+               }
+-              $lsparse'report_subdirs = (! $recurse_hard && $algorithm == 0);
+-              if( !&ftp'dir_open( $flags ) ){
+-                      &msg( "Cannot get remote directory listing because: $ftp'response\n" );
++              $lsparse::report_subdirs = (! $recurse_hard && $algorithm == 0);
++              if( !&ftp::dir_open( $flags ) ){
++                      &msg( "Cannot get remote directory listing because: $ftp::response\n" );
+                       return 0;
+               }
+               
+-              $rls = "ftp'NS";
++              $rls = "ftp::NS";
+       }
+               
+       $rcwd = '';
+@@ -1892,8 +1893,8 @@
+               # relative to the remote_dir
+               $rcwd = $remote_dir;
+       }
+-      $dateconv'use_timelocal = $use_timelocal;
+-      if( !&lsparse'reset( $rcwd ) ){
++      $dateconv::use_timelocal = $use_timelocal;
++      if( !&lsparse::reset( $rcwd ) ){
+               &msg( "$remote_fs: unknown fstype\n" );
+               return 0;
+       }
+@@ -1923,7 +1924,7 @@
+               # Could optimise this out - but it makes sure that
+               # the other end gets a command straight after a possibly
+               # long dir listing.
+-              if( ! &ftp'type( $text_mode ? 'A' : 'I' ) ){
++              if( ! &ftp::type( $text_mode ? 'A' : 'I' ) ){
+                       local( $msg ) = "Cannot reset type after dir listing, ";
+                       if( $type_changed ){
+                               # I changed it before - so I must be able to
+@@ -1995,7 +1996,7 @@
+       while( 1 ){
+               while( !eof( $rls ) ){
+                       ( $path, $size, $time, $type, $mode ) =
+-                              &lsparse'line( $rls );
++                              &lsparse::line( $rls );
+                       last if $path eq '';
+                       if( $ls_fix_mappings ){
+                               local( $old_path ) = $path;
+@@ -2086,9 +2087,9 @@
+               }
+ 
+               if( $use_ls ){
+-                      if( ! &ftp'dir_close() ){
++                      if( ! &ftp::dir_close() ){
+                               &msg( "Failure at end of remote directory" .
+-                               " ($rdir) because: $ftp'response\n" );
++                               " ($rdir) because: $ftp::response\n" );
+                               return 0;
+                       }
+               }
+@@ -2098,9 +2099,9 @@
+                       while( 1 ){
+                               if( $#dir_list < 0 ){
+                                       # Make sure we end in the right directory.
+-                                      if( ! &ftp'cwd( $remote_dir ) ){
++                                      if( ! &ftp::cwd( $remote_dir ) ){
+                                               &msg( "Cannot change to remote directory" .
+-                                               " ($rdir) because: $ftp'response\n" );
++                                               " ($rdir) because: $ftp::response\n" );
+                                               return 0;
+                                       }
+                                       $done = 1;
+@@ -2111,9 +2112,9 @@
+                               if( $debug > 2 ){
+                                       print "scanning: $remote_dir / $rcwd\n";
+                               }
+-                              if( ! &ftp'cwd( $rdir ) ){
++                              if( ! &ftp::cwd( $rdir ) ){
+                                       &msg( "Cannot change to remote directory" .
+-                                       " ($rdir) because: $ftp'response\n" );
++                                       " ($rdir) because: $ftp::response\n" );
+                                       next;
+                               }
+                               last;
+@@ -2121,12 +2122,12 @@
+                       if( $done ){
+                               last;
+                       }
+-                      if( !&ftp'dir_open( $flags_nonrecursive ) ){
++                      if( !&ftp::dir_open( $flags_nonrecursive ) ){
+                               &msg( "Cannot get remote directory" .
+-                                      " listing because: $ftp'response\n" );
++                                      " listing because: $ftp::response\n" );
+                               return 0;
+                       }
+-                      &lsparse'reset( $rcwd );
++                      &lsparse::reset( $rcwd );
+                       
+                       # round the loop again.
+                       next;
+@@ -2517,7 +2518,7 @@
+       
+       if( $external_mapping ){
+               $old_name = $name;
+-              local( $tmp ) = &extmap'map( $name );
++              local( $tmp ) = &extmap::map( $name );
+               if( $tmp ne $old_name ){
+                       $name = $tmp;
+               }
+@@ -2678,11 +2679,11 @@
+                       &transfer_file( $src_path, $dest_path,
+                                      $attribs, $remote_time[ $srci ] );
+               if( $get_file && $newpath eq '' ){
+-                      &msg( $log, "Failed to $XFER file $ftp'response\n" );
+-                      if( $ftp'response =~ /timeout|timed out/i ){
++                      &msg( $log, "Failed to $XFER file $ftp::response\n" );
++                      if( $ftp::response =~ /timeout|timed out/i ){
+                               $timeouts++;
+                       }
+-                      if( $ftp'fatalerror || $timeouts > $max_timeouts ){
++                      if( $ftp::fatalerror || $timeouts > $max_timeouts ){
+                               &msg( $log, "Fatal error talking to site, skipping rest of transfers\n" );
+                               &disconnect();
+                               return;
+@@ -2742,11 +2743,11 @@
+       }
+       
+       if( $vms ){
+-              &ftp'type( ($src_path =~ /$vms_xfer_text/i) ? 'A' : 'I' );
++              &ftp::type( ($src_path =~ /$vms_xfer_text/i) ? 'A' : 'I' );
+       }
+       
+       if( $remote_fs eq 'macos' && ! $get_file ){
+-              &ftp'type( 'A' );
++              &ftp::type( 'A' );
+       }
+       
+       if( ! $get_file ){
+@@ -2760,7 +2761,7 @@
                        local( $f ) = $src_file;
                        $f =~ s/($shell_metachars)/\\$1/g;
                        $comptemp = "$big_temp/.out$$";
@@ -78,7 +450,52 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
                        $src_file = $comptemp;
                }
                
-@@ -2840,10 +2841,10 @@ sub transfer_file
+@@ -2768,15 +2769,15 @@
+                       $temp = $dest_path;
+               }
+ 
+-              if( ! &ftp'put( $src_file, $temp, $restart ) ){
+-                      &msg( $log, "Failed to put $src_file: $ftp'response\n" );
++              if( ! &ftp::put( $src_file, $temp, $restart ) ){
++                      &msg( $log, "Failed to put $src_file: $ftp::response\n" );
+                       unlink( $comptemp ) if $comptemp;
+                       return '';
+               }
+       
+               unlink( $comptemp ) if $comptemp;
+-              if( !$no_rename && ! &ftp'rename( $temp, $dest_path ) ){
+-                      &msg( $log, "Failed to remote rename $temp to $dest_path: $ftp'response\n" );
++              if( !$no_rename && ! &ftp::rename( $temp, $dest_path ) ){
++                      &msg( $log, "Failed to remote rename $temp to $dest_path: $ftp::response\n" );
+                       return '';
+               }
+ 
+@@ -2800,11 +2801,11 @@
+       # it.
+ 
+       # Get a file
+-      &ftp'dostrip( $strip_cr );
++      &ftp::dostrip( $strip_cr );
+       $start_time = time;
+-      if( ! &ftp'get( $src_path, $temp, $restart ) ){
+-              if( !$failed_gets_excl || $ftp'response !~ /$failed_gets_excl/ ){
+-                      &msg( $log, "Failed to get $src_path: $ftp'response\n" );
++      if( ! &ftp::get( $src_path, $temp, $restart ) ){
++              if( !$failed_gets_excl || $ftp::response !~ /$failed_gets_excl/ ){
++                      &msg( $log, "Failed to get $src_path: $ftp::response\n" );
+               }
+ 
+               # Time stamp the temp file to allow for a restart
+@@ -2823,7 +2824,7 @@
+ 
+       # delete source file after successful transfer
+       if( $delete_source ){
+-              if( &ftp'delete( $src_path ) ){
++              if( &ftp::delete( $src_path ) ){
+                       &msg( $log, "Deleted remote $src_path\n");
+               }
+               else {
+@@ -2840,10 +2841,10 @@
                # Am I doing compress to gzip conversion?
                if( $compress_conv_patt && $src_path =~ /$compress_conv_patt/ &&
                    $compress_suffix eq $gzip_suffix ){
@@ -91,7 +508,7 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
                }
                &sys( $comp );
                $temp =~ s/\\($shell_metachars)/$1/g;
-@@ -3174,9 +3175,9 @@ sub do_delete
+@@ -3174,9 +3175,9 @@
                                        &msg( $log, "rmdir $cwd/$del failed: $!\n" );
                        }
                        else {
@@ -99,8 +516,77 @@ $NetBSD: patch-ac,v 1.5 2011/09/12 16:35
 -                              &ftp'delete( "$del" ) ||
 -                                      &msg( $log, "ftp delete DIR $del failed\n" );
 +                              &msg( $log, "deldir DIR $del\n" );
-+                              &ftp'deldir( "$del" ) ||
++                              &ftp::deldir( "$del" ) ||
 +                                      &msg( $log, "ftp deldir DIR $del failed\n" );
                        }
                }
                else {
+@@ -3184,7 +3185,7 @@
+                               &msg( $log, "NEED TO rmdir $cwd/$del\n" );
+                       }
+                       else {
+-                              &msg( $log, "NEED TO ftp'deldir $del\n" );
++                              &msg( $log, "NEED TO ftp::deldir $del\n" );
+                       }
+               }
+               return;
+@@ -3199,7 +3200,7 @@
+               }
+               else {
+                       &msg( $log, "delete FILE $del\n" );
+-                      &ftp'delete( "$del" ) ||
++                      &ftp::delete( "$del" ) ||
+                               &msg( $log, "ftp delete FILE $del failed\n" );
+               }
+       }
+@@ -3208,7 +3209,7 @@
+                       &msg( $log, "NEED TO unlink $cwd/$del\n" );
+               }
+               else {
+-                      &msg( $log, "NEED TO ftp'delete $del\n" );
++                      &msg( $log, "NEED TO ftp::delete $del\n" );
+               }
+       }
+ }
+@@ -3345,12 +3346,12 @@
+       }
+       else {
+               # make a remote directory
+-              $val = &ftp'mkdir( $dir );
++              $val = &ftp::mkdir( $dir );
+ 
+               # The mkdir might have failed due to bad mode
+               # So try to chmod it anyway
+               if( $remote_has_chmod ){
+-                      $val = &ftp'chmod( $dir, $mode );
++                      $val = &ftp::chmod( $dir, $mode );
+               }
+       }
+ 
+@@ -3369,14 +3370,14 @@
+       }
+       else {
+               # check if remote directory exists
+-              local($old_dir) = &ftp'pwd();           
++              local($old_dir) = &ftp::pwd();          
+               
+-              $val = &ftp'cwd($dir);
++              $val = &ftp::cwd($dir);
+ 
+               # If I didn't manage to change dir should be where I was!
+               if( $val ){
+                       # go back to the original directory
+-                      &ftp'cwd($old_dir) || die "Cannot cd to original remote directory";
++                      &ftp::cwd($old_dir) || die "Cannot cd to original remote directory";
+               }
+       }
+       return $val;
+@@ -3430,7 +3431,7 @@
+       else {
+               # change the remote file
+               if( $remote_has_chmod ){
+-                      &ftp'chmod( $path, $mode );
++                      &ftp::chmod( $path, $mode );
+               }
+       }
+ }

Index: pkgsrc/net/mirror/patches/patch-ad
diff -u pkgsrc/net/mirror/patches/patch-ad:1.5 pkgsrc/net/mirror/patches/patch-ad:1.5.176.1
--- pkgsrc/net/mirror/patches/patch-ad:1.5      Tue Dec 28 18:15:43 1999
+++ pkgsrc/net/mirror/patches/patch-ad  Mon Apr 22 18:28:54 2024
@@ -1,8 +1,74 @@
-$NetBSD: patch-ad,v 1.5 1999/12/28 18:15:43 itojun Exp $
+$NetBSD: patch-ad,v 1.5.176.1 2024/04/22 18:28:54 bsiegert Exp $
 
---- lchat.pl.orig      Wed Jun  7 22:19:22 1995
-+++ lchat.pl   Wed May 12 18:10:54 1999
-@@ -79,7 +79,7 @@
+--- lchat.pl.orig      2024-04-11 11:08:05.970309238 +0200
++++ lchat.pl   2024-04-11 11:07:48.798330768 +0200
+@@ -34,7 +34,7 @@
+ # Lots of changes.  See CHANGES since 2.8 file.
+ #
+ # Revision 2.3  1994/02/03  13:45:35  lmjm
+-# Correct chat'read (bfriesen%simple.sat.tx.us@localhost)
++# Correct chat::read (bfriesen%simple.sat.tx.us@localhost)
+ #
+ # Revision 2.2  1993/12/14  11:09:03  lmjm
+ # Only include sys/socket.ph if not already there.
+@@ -55,7 +55,7 @@
+       eval "use Socket";
+ }
+ else {
+-      unless( defined &'PF_INET ){
++      unless( defined &::PF_INET ){
+               eval "sub ATT { 0; } sub INTEL { 0; }";
+               do 'sys/socket.ph';
+       }
+@@ -65,18 +65,18 @@
+ if( $] =~ /^5\.\d+$/ ){
+       # Perl 5 has a special way of getting them via the 'use Socket'
+       # above.
+-      $main'pf_inet = &Socket'PF_INET;
+-      $main'sock_stream = &Socket'SOCK_STREAM;
++      $main::pf_inet = &Socket::PF_INET;
++      $main::sock_stream = &Socket::SOCK_STREAM;
+       local($name, $aliases, $proto) = getprotobyname( 'tcp' );
+-      $main'tcp_proto = $proto;
++      $main::tcp_proto = $proto;
+ }
+-elsif( defined( &'PF_INET ) ){
++elsif( defined( &::PF_INET ) ){
+       # Perl 4 needs to have the socket.ph file created when perl was
+       # installed.
+-      $main'pf_inet = &'PF_INET;
+-      $main'sock_stream = &'SOCK_STREAM;
++      $main::pf_inet = &::PF_INET;
++      $main::sock_stream = &::SOCK_STREAM;
+       local($name, $aliases, $proto) = getprotobyname( 'tcp' );
+-      $main'tcp_proto = $proto;
++      $main::tcp_proto = $proto;
+ }
+ else {
+       # Whoever installed perl didn't run h2ph !!!
+@@ -84,9 +84,9 @@
+       #  last resort
+       # Use hardwired versions
+       # but who the heck would change these anyway? (:-)
+-      $main'pf_inet = 2;
+-      $main'sock_stream = 1; # Sigh... On Solaris set this to 2
+-      $main'tcp_proto = 6;
++      $main::pf_inet = 2;
++      $main::sock_stream = 1; # Sigh... On Solaris set this to 2
++      $main::tcp_proto = 6;
+       warn "lchat.pl: using hardwired in network constantants";
+ }
+ 
+@@ -108,7 +108,7 @@
+ }
+ 
+ 
+-## &chat'open_port("server.address",$port_number);
++## &chat::open_port("server.address",$port_number);
+ ## opens a named or numbered TCP server
+ sub open_port { ## public
+       local($server, $port) = @_;
+@@ -117,7 +117,7 @@
  
        # We may be multi-homed, start with 0, fixup once connexion is made
        $thisaddr = "\0\0\0\0" ;
@@ -11,16 +77,18 @@ $NetBSD: patch-ad,v 1.5 1999/12/28 18:15
  
        if ($server =~ /^(\d+)+\.(\d+)\.(\d+)\.(\d+)$/) {
                $serveraddr = pack('C4', $1, $2, $3, $4);
-@@ -90,7 +90,7 @@
+@@ -128,8 +128,8 @@
                }
                $serveraddr = $x[4];
        }
 -      $serverproc = pack($sockaddr, 2, $port, $serveraddr);
+-      unless (socket(S, $main'pf_inet, $main'sock_stream, $main'tcp_proto)) {
 +      $serverproc = pack_sockaddr_in($port, $serveraddr);
-       unless (socket(S, $main'pf_inet, $main'sock_stream, $main'tcp_proto)) {
++      unless (socket(S, $main::pf_inet, $main::sock_stream, $main::tcp_proto)) {
                ($!) = ($!, close(S)); # close S while saving $!
                return undef;
-@@ -99,12 +99,12 @@
+       }
+@@ -137,12 +137,12 @@
        # The SOCKS documentation claims that this bind before the connet
        # is unnecessary.  Not just, that, but when used with SOCKS,
        # a connect() must not follow a bind(). -Erez Zadok.
@@ -39,7 +107,7 @@ $NetBSD: patch-ad,v 1.5 1999/12/28 18:15
        unless (connect(S, $serverproc)) {
                ($!) = ($!, close(S)); # close S while saving $!
                return undef;
-@@ -114,7 +114,7 @@
+@@ -152,7 +152,7 @@
  # multi-homed, with IP forwarding off, so fix-up.
        local($fam,$lport);
        ($fam,$lport,$thisaddr) = unpack($sockaddr, getsockname(S));
@@ -48,7 +116,7 @@ $NetBSD: patch-ad,v 1.5 1999/12/28 18:15
  # end of post-connect fixup
        select((select(S), $| = 1)[0]);
        return 1;
-@@ -129,7 +129,7 @@
+@@ -167,7 +167,7 @@
  
        # We may be multi-homed, start with 0, fixup once connexion is made
        $thisaddr = "\0\0\0\0" ;
@@ -57,7 +125,7 @@ $NetBSD: patch-ad,v 1.5 1999/12/28 18:15
  
        if ($server =~ /^(\d+)+\.(\d+)\.(\d+)\.(\d+)$/) {
                $serveraddr = pack('C4', $1, $2, $3, $4);
-@@ -151,7 +151,7 @@
+@@ -189,7 +189,7 @@
  # multi-homed, with IP forwarding off, so fix-up.
        local($fam,$lport);
        ($fam,$lport,$thisaddr) = unpack($sockaddr, getsockname($newsock));
@@ -66,3 +134,47 @@ $NetBSD: patch-ad,v 1.5 1999/12/28 18:15
  # end of post-connect fixup
        select((select($newsock), $| = 1)[0]);
        return 1;
+@@ -197,7 +197,7 @@
+ ##############################################################################
+ 
+ 
+-## $return = &chat'expect($timeout_time,
++## $return = &chat::expect($timeout_time,
+ ##    $pat1, $body1, $pat2, $body2, ... )
+ ## $timeout_time is the time (either relative to the current time, or
+ ## absolute, ala time(2)) at which a timeout event occurs.
+@@ -293,7 +293,7 @@
+                               select($rmask, undef, undef, $endtime - time);
+                       if ($nfound) {
+                               $nread = sysread(S, $thisbuf, 1024);
+-                              if( $chat'debug ){
++                              if( $chat::debug ){
+                                       print STDERR "sysread $nread ";
+                                       print STDERR ">>$thisbuf<<\n";
+                               }
+@@ -316,21 +316,21 @@
+       & $subname();
+ }
+ 
+-## &chat'print(@data)
++## &chat::print(@data)
+ sub print { ## public
+       print S @_;
+-      if( $chat'debug ){
++      if( $chat::debug ){
+               print STDERR "printed:";
+               print STDERR @_;
+       }
+ }
+ 
+-## &chat'close()
++## &chat::close()
+ sub close { ## public
+       close(S);
+ }
+ 
+-# &chat'read(*buf, $ntoread )
++# &chat::read(*buf, $ntoread )
+ # blocking read. returns no. of bytes read and puts data in $buf.
+ # If called with ntoread < 0 then just do the accept and return 0.
+ sub read { ## public

Index: pkgsrc/net/mirror/patches/patch-ae
diff -u pkgsrc/net/mirror/patches/patch-ae:1.7 pkgsrc/net/mirror/patches/patch-ae:1.7.102.1
--- pkgsrc/net/mirror/patches/patch-ae:1.7      Mon Sep 12 16:35:43 2011
+++ pkgsrc/net/mirror/patches/patch-ae  Mon Apr 22 18:28:54 2024
@@ -1,12 +1,127 @@
-$NetBSD: patch-ae,v 1.7 2011/09/12 16:35:43 taca Exp $
+$NetBSD: patch-ae,v 1.7.102.1 2024/04/22 18:28:54 bsiegert Exp $
 
 * Enable deleting remote directories.
 * Proper signal handling.
 * Miscellaneous bug fixes.
+* Fix deprecation warning (change ' to ::) for newer perl
 
---- ftp.pl.orig        1998-06-05 09:10:27.000000000 +0000
-+++ ftp.pl
-@@ -233,7 +233,7 @@ sub timed_open
+--- ftp.pl.orig        2024-04-11 11:08:05.969004188 +0200
++++ ftp.pl     2024-04-11 11:07:48.797471889 +0200
+@@ -28,16 +28,16 @@
+ #  $ftp_port = 21;
+ #  $retry_call = 1;
+ #  $attempts = 2;
+-#  if( &ftp'open( $site, $ftp_port, $retry_call, $attempts ) != 1 ){
++#  if( &ftp::open( $site, $ftp_port, $retry_call, $attempts ) != 1 ){
+ #   die "failed to open ftp connection";
+ #  }
+-#  if( ! &ftp'login( $user, $pass ) ){
++#  if( ! &ftp::login( $user, $pass ) ){
+ #   die "failed to login";
+ #  }
+-#  &ftp'type( $text_mode ? 'A' : 'I' );
+-#  if( ! &ftp'get( $remote_filename, $local_filename, 0 ) ){
++#  &ftp::type( $text_mode ? 'A' : 'I' );
++#  if( ! &ftp::get( $remote_filename, $local_filename, 0 ) ){
+ #   die "failed to get file";
+ #  }
+-#  &ftp'close();
++#  &ftp::close();
+ #
+ #
+@@ -94,9 +94,9 @@
+ 
+ # This is a "global" it contains the last response from the remote ftp server
+ # for use in error messages
+-$ftp'response = "";
++$ftp::response = "";
+ 
+-# Also ftp'NS is the socket containing the data coming in from the remote ls
++# Also ftp::NS is the socket containing the data coming in from the remote ls
+ # command.
+ 
+ # The size of block to be read or written when talking to the remote
+@@ -115,12 +115,12 @@
+ $real_site = "";
+ 
+ # "Global" Where error/log reports are sent to
+-$ftp'showfd = 'STDERR';
++$ftp::showfd = 'STDERR';
+ 
+ # Should a 421 be treated as a connection close and return 99 from
+-# ftp'expect.  This is against rfc1123 recommendations but I've found
++# ftp::expect.  This is against rfc1123 recommendations but I've found
+ # it to be a wise default.
+-$ftp'drop_on_421 = 1;
++$ftp::drop_on_421 = 1;
+ 
+ # Name of a function to call on a pathname to map it into a remote
+ # pathname.
+@@ -131,7 +131,7 @@
+ $ftp_show = 0;
+ 
+ # Global set on a error that aborts the connection
+-$ftp'fatalerror = 0;
++$ftp::fatalerror = 0;
+ 
+ # Whether to keep the continuation messages so the user can look at them
+ $keep_continuations = 0;
+@@ -140,7 +140,7 @@
+ $read_in = undef;
+ 
+ # should we use the PASV extension to the ftp protocol?
+-$ftp'use_pasv = 0;    # 0=no (default), 1=yes
++$ftp::use_pasv = 0;    # 0=no (default), 1=yes
+ 
+ # Variable only used if proxying
+ $proxy = $proxy_gateway = $proxy_ftp_port = '';
+@@ -150,30 +150,30 @@
+ # (Normally set elsewhere - this is just a sensible default.)
+ # Is expected to take count and code as arguments and prompt
+ # for the secret key  with 'password:' on stdout and then print the password.
+-$ftp'keygen_prog = '/usr/local/bin/key';
++$ftp::keygen_prog = '/usr/local/bin/key';
+ 
+ # Uncomment to turn on lots of debugging.
+ # &debug( 10 );
+ 
+-# Limit how much data any one ftp'get can pull back
++# Limit how much data any one ftp::get can pull back
+ # Negative values cause the size check to be skipped.
+ $max_get_size = -1;
+ 
+ # Where I am connected to.
+ $connect_site = '';
+ 
+-# &ftp'debug( debugging_level )
++# &ftp::debug( debugging_level )
+ # Turn on debugging ranging from 1 = some to 10 = everything
+-sub ftp'debug
++sub ftp::debug
+ {
+       $ftp_show = $_[0];
+       if( $ftp_show > 9 ){
+-              $chat'debug = 1;
++              $chat::debug = 1;
+       }
+ }
+ 
+-# &ftp'set_timeout( seconds )
+-sub ftp'set_timeout
++# &ftp::set_timeout( seconds )
++sub ftp::set_timeout
+ {
+       local( $to ) = @_;
+       return if $to == $timeout;
+@@ -226,21 +226,21 @@
+                       $connect_site = $site;
+                       $connect_port = $ftp_port;
+               }
+-              if( ! &chat'open_port( $connect_site, $connect_port ) ){
++              if( ! &chat::open_port( $connect_site, $connect_port ) ){
+                       if( $retry_call ){
+                               print $showfd "Failed to connect\n" if $ftp_show;
+                               next;
                        }
                        else {
                                print $showfd "proxy connection failed " if $proxy;
@@ -15,22 +130,119 @@ $NetBSD: patch-ae,v 1.7 2011/09/12 16:35
                                return 0;
                        }
                }
-@@ -270,6 +270,14 @@ sub ftp'set_signals
-       $SIG{ 'PIPE' } = "ftp'ftp__sighandler";
+               $ret = &expect( $timeout,
+                       2, 1 ); # ready for login to $site
+               if( $ret != 1 ){
+-                      &chat'close();
++                      &chat::close();
+                       next;
+               }
+               return 1;
+@@ -264,14 +264,22 @@
+ }
+ 
+ # Setup a signal handler for possible errors.
+-sub ftp'set_signals
++sub ftp::set_signals
+ {
+       $ftp_logger = @_;
+-      $SIG{ 'PIPE' } = "ftp'ftp__sighandler";
++      $SIG{ 'PIPE' } = "ftp::ftp__sighandler";
  }
  
+-# &ftp'set_namemap( function to map outgoing name,  function to map incoming )
+-sub ftp'set_namemap
 +# Setup a signal handler for user interrupts.
-+sub ftp'set_user_signals
++sub ftp::set_user_signals
 +{
 +      $ftp_logger = @_;
-+      $SIG{ 'INT' } = "ftp'ftp__sighandler";
++      $SIG{ 'INT' } = "ftp::ftp__sighandler";
 +}
 + 
 +
- # &ftp'set_namemap( function to map outgoing name,  function to map incoming )
- sub ftp'set_namemap
++# &ftp::set_namemap( function to map outgoing name,  function to map incoming )
++sub ftp::set_namemap
  {
-@@ -486,7 +494,7 @@ sub pasv
+       ($mapunixout, $mapunixin) = @_;
+       if( $debug ) {
+@@ -280,12 +288,12 @@
+ }
+ 
+ 
+-# &ftp'open( hostname or address,
++# &ftp::open( hostname or address,
+ #            port to use,
+ #            retry on call failure,
+ #          number of attempts to retry )
+ # returns 1 if connected, 0 otherwise
+-sub ftp'open
++sub ftp::open
+ {
+       local( $site, $ftp_port, $retry_call, $attempts ) = @_;
+ 
+@@ -312,9 +320,9 @@
+       return $ret;
+ }
+ 
+-# &ftp'login( user, password, account )
++# &ftp::login( user, password, account )
+ # the account part is optional unless the remote service requires one.
+-sub ftp'login
++sub ftp::login
+ {
+       local( $remote_user, $remote_password, $remote_account ) = @_;
+         local( $ret );
+@@ -351,11 +359,11 @@
+               # check for s/key challenge - eg, [s/key 994 ph29005]
+               # If we are talking to skey then use remote_password as the
+               # secret to generate a real password
+-              if( $ftp'response =~ m#\[s/key (\d+) (\w+)\]# ){
++              if( $ftp::response =~ m#\[s/key (\d+) (\w+)\]# ){
+                       local( $count, $code ) = ($1, $2);
+ 
+                       # TODO: report open failure & remove need for echo
+-                      open( SKEY, "echo $remote_password | $ftp'keygen_prog $count $code |" );
++                      open( SKEY, "echo $remote_password | $ftp::keygen_prog $count $code |" );
+                       while( <SKEY> ){
+                               if( ! /password:/ ){
+                                       chop( $remote_password = $_ );
+@@ -411,21 +419,21 @@
+ sub service_closed
+ {
+       $service_open = 0;
+-      &chat'close();
++      &chat::close();
+ }
+ 
+ # Close down the current ftp connecting in an orderly way.
+-sub ftp'close
++sub ftp::close
+ {
+       &quit();
+       $service_open = 0;
+-      &chat'close();
++      &chat::close();
+ }
+ 
+-# &ftp'cwd( directory )
++# &ftp::cwd( directory )
+ # Change to the given directory
+ # return 1 if successful, 0 otherwise
+-sub ftp'cwd
++sub ftp::cwd
+ {
+       local( $dir ) = @_;
+       local( $ret );
+@@ -460,7 +468,7 @@
+ sub pasv
+ {
+       # At some point I need to close/free S2, no?
+-      unless( socket( S2, $main'pf_inet, $main'sock_stream, $main'tcp_proto ) ){
++      unless( socket( S2, $main::pf_inet, $main::sock_stream, $main::tcp_proto ) ){
+               ($!) = ($!, close(S2)); # close S2 while saving $!
+               return undef;
+       }
+@@ -486,7 +494,7 @@
                return 0;
        }
        if( $ret == 1 ) {
@@ -39,7 +251,40 @@ $NetBSD: patch-ae,v 1.7 2011/09/12 16:35
                        $newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
                        $newport = $5 * 256 + $6;
                }
-@@ -581,6 +589,9 @@ sub ftp'dir_close
+@@ -497,7 +505,7 @@
+       }
+ 
+       # now need to connect() the new socket
+-      if( ! &chat'open_newport( $newhost, $newport, *S2 ) ){
++      if( ! &chat::open_newport( $newhost, $newport, *S2 ) ){
+               if( $retry_call ){
+                       print $showfd "Failed to connect newport\n" if $ftp_show;
+                       next;
+@@ -511,12 +519,12 @@
+ }
+ 
+ 
+-# &ftp'dir( remote LIST options )
++# &ftp::dir( remote LIST options )
+ # Start a list going with the given options.
+ # Presuming that the remote deamon uses the ls command to generate the
+ # data to send back then then you can send it some extra options (eg: -lRa)
+ # return 1 if sucessful, 0 otherwise
+-sub ftp'dir_open
++sub ftp::dir_open
+ {
+       local( $options ) = @_;
+       local( $ret );
+@@ -573,7 +581,7 @@
+ 
+ # Close down reading the result of a remote ls command
+ # return 1 if successful, 0 otherwise
+-sub ftp'dir_close
++sub ftp::dir_close
+ {
+       local( $ret );
+ 
+@@ -581,6 +589,9 @@
                return 0;
        }
  
@@ -49,7 +294,7 @@ $NetBSD: patch-ae,v 1.7 2011/09/12 16:35
        # read the close
        #
        $ret = &expect($timeout,
-@@ -590,8 +601,6 @@ sub ftp'dir_close
+@@ -590,8 +601,6 @@
                $ret = 0;
        }
  
@@ -58,7 +303,41 @@ $NetBSD: patch-ae,v 1.7 2011/09/12 16:35
  
        if( ! $ret ){
                return 0;
-@@ -708,6 +717,7 @@ sub ftp'get
+@@ -602,7 +611,7 @@
+ 
+ # Quit from the remote ftp server
+ # return 1 if successful and 0 on failure
+-#  Users should be calling &ftp'close();
++#  Users should be calling &ftp::close();
+ sub quit
+ {
+       local( $ret );
+@@ -687,20 +696,20 @@
+       return syswrite( NS, $ftpbuf, $ftpbufsize );
+ }
+ 
+-# &ftp'dostrip( true or false )
++# &ftp::dostrip( true or false )
+ # Turn on or off stripping of incoming carriage returns.
+-sub ftp'dostrip
++sub ftp::dostrip
+ {
+       ($strip_cr ) = @_;
+ }
+ 
+-# &ftp'get( remote file, local file, try restarting where last xfer failed )
++# &ftp::get( remote file, local file, try restarting where last xfer failed )
+ # Get a remote file back into a local file.
+ # If no loc_fname passed then uses rem_fname.
+ # If $restart set and the remote site supports it then restart where
+ # last xfer left off.
+ # returns 1 on success, 0 otherwise
+-sub ftp'get
++sub ftp::get
+ {
+       local($rem_fname, $loc_fname, $restart ) = @_;
+       local( $ret );
+@@ -708,6 +717,7 @@
        if( ! $service_open ){
                return 0;
        }
@@ -66,7 +345,16 @@ $NetBSD: patch-ae,v 1.7 2011/09/12 16:35
  
        if( $loc_fname eq "" ){
                $loc_fname = $rem_fname;
-@@ -917,10 +927,27 @@ sub delete
+@@ -887,7 +897,7 @@
+       return $ret;
+ }
+ 
+-# &ftp'delete( remote filename )
++# &ftp::delete( remote filename )
+ # Delete a file from the remote site.
+ # returns 1 if successful, 0 otherwise
+ sub delete
+@@ -917,15 +927,32 @@
  
  sub deldir
  {
@@ -96,4 +384,133 @@ $NetBSD: patch-ae,v 1.7 2011/09/12 16:35
 +      return $ret == 1;
  }
  
- # &ftp'put( local filename, remote filename, restart where left off )
+-# &ftp'put( local filename, remote filename, restart where left off )
++# &ftp::put( local filename, remote filename, restart where left off )
+ # Similar to get but sends file to the remote site.
+-sub ftp'put
++sub ftp::put
+ {
+       local( $loc_fname, $rem_fname ) = @_;
+       local( $strip_cr );
+@@ -1091,9 +1118,9 @@
+       return $ret;
+ }
+ 
+-# &ftp'restart( byte_offset )
++# &ftp::restart( byte_offset )
+ # Restart the next transfer from the given offset
+-sub ftp'restart
++sub ftp::restart
+ {
+       local( $restart_point, $ret ) = @_;
+ 
+@@ -1115,7 +1142,7 @@
+       return $ret;
+ }
+ 
+-# &ftp'type( 'A' or 'I' )
++# &ftp::type( 'A' or 'I' )
+ # set transfer type to Ascii or Image.
+ sub type
+ {
+@@ -1143,7 +1170,7 @@
+ @site_command_list = ();
+ 
+ # routine to query the remote server for 'SITE' commands supported
+-sub ftp'site_commands
++sub ftp::site_commands
+ {
+       local( $ret );
+       
+@@ -1183,7 +1210,7 @@
+ }
+ 
+ # return the pwd, or null if we can't get the pwd
+-sub ftp'pwd
++sub ftp::pwd
+ {
+       local( $ret, $cwd );
+ 
+@@ -1214,7 +1241,7 @@
+       return $cwd;
+ }
+ 
+-# &ftp'mkdir( directory name )
++# &ftp::mkdir( directory name )
+ # Create a directory on the remote site
+ # return 1 for success, 0 otherwise
+ sub mkdir
+@@ -1244,7 +1271,7 @@
+       return $ret;
+ }
+ 
+-# &ftp'chmod( pathname, new mode )
++# &ftp::chmod( pathname, new mode )
+ # Change the mode of a file on the remote site.
+ # return 1 for success, 0 for failure
+ sub chmod
+@@ -1274,10 +1301,10 @@
+       return $ret;
+ }
+ 
+-# &ftp'rename( old name, new name )
++# &ftp::rename( old name, new name )
+ # Rename a file on the remote site.
+ # returns 1 if successful, 0 otherwise
+-sub ftp'rename
++sub ftp::rename
+ {
+       local( $old_name, $new_name ) = @_;
+       local( $ret );
+@@ -1325,8 +1352,8 @@
+ }
+ 
+ 
+-# &ftp'quote( site command );
+-sub ftp'quote
++# &ftp::quote( site command );
++sub ftp::quote
+ {
+       local( $cmd ) = @_;
+       local( $ret );
+@@ -1364,7 +1391,7 @@
+ }
+ 
+ #
+-#  create the list of parameters for chat'expect
++#  create the list of parameters for chat::expect
+ #
+ #  expect( time_out, {value, return value} );
+ #  the last response is stored in $response
+@@ -1427,7 +1454,7 @@
+               if( $ftp_show > 9 ){
+                       &printargs( $time_out, @expect_args );
+               }
+-              $ret = &chat'expect( $time_out, @expect_args );
++              $ret = &chat::expect( $time_out, @expect_args );
+       }
+ 
+       return $ret;
+@@ -1449,10 +1476,10 @@
+       
+       $sockaddr = 'S n a4 x8';
+ 
+-      ($a,$b,$c,$d) = unpack( 'C4', $chat'thisaddr );
+-      $this = $chat'thisproc;
++      ($a,$b,$c,$d) = unpack( 'C4', $chat::thisaddr );
++      $this = $chat::thisproc;
+       
+-      if( ! socket( S, $main'pf_inet, $main'sock_stream, $main'tcp_proto ) ){
++      if( ! socket( S, $main::pf_inet, $main::sock_stream, $main::tcp_proto ) ){
+               warn "socket: $!";
+               return 0;
+       }
+@@ -1505,7 +1532,7 @@
+               print $showfd "---> $sc\n";
+       }
+       
+-      &chat'print( "$send_cmd\r\n" );
++      &chat::print( "$send_cmd\r\n" );
+ }
+ 
+ sub accept

Index: pkgsrc/net/mirror/patches/patch-ag
diff -u pkgsrc/net/mirror/patches/patch-ag:1.2 pkgsrc/net/mirror/patches/patch-ag:1.2.102.1
--- pkgsrc/net/mirror/patches/patch-ag:1.2      Mon Sep 12 16:35:43 2011
+++ pkgsrc/net/mirror/patches/patch-ag  Mon Apr 22 18:28:54 2024
@@ -1,11 +1,12 @@
-$NetBSD: patch-ag,v 1.2 2011/09/12 16:35:43 taca Exp $
+$NetBSD: patch-ag,v 1.2.102.1 2024/04/22 18:28:54 bsiegert Exp $
 
 * Avoid to use timelocal.pl which cause obsolete warning with perl 5.14.
 * Make sure to use 4-digit year.
+* Fix deprecation warning (change ' to ::) for newer perl
 
---- dateconv.pl.orig   1998-05-29 19:04:32.000000000 +0000
-+++ dateconv.pl
-@@ -47,7 +47,8 @@ sub lstime_to_standard
+--- dateconv.pl.orig   2024-04-11 11:08:05.967542752 +0200
++++ dateconv.pl        2024-04-11 11:07:48.795406481 +0200
+@@ -47,7 +47,8 @@
  }
  
  
@@ -15,7 +16,35 @@ $NetBSD: patch-ag,v 1.2 2011/09/12 16:35
  package dateconv;
  
  # Use timelocal rather than gmtime.
-@@ -149,5 +150,5 @@ sub main'time_to_standard
+@@ -74,7 +75,7 @@
+ # input date and time string from ftp "ls -l", such as Mmm dd yyyy or
+ # Mmm dd HH:MM,
+ # return $time number via gmlocal( $string ).
+-sub main'lstime_to_time
++sub main::lstime_to_time
+ {
+       package dateconv;
+ 
+@@ -133,15 +134,15 @@
+       $year += 50 if 37 < $year && $year < 70 ;
+ 
+       if( $use_timelocal ){
+-              return &'timelocal( $secs, $mins, $hours, $day, $month, $year );
++              return &::timelocal( $secs, $mins, $hours, $day, $month, $year );
+       }
+       else {
+-              return &'timegm( $secs, $mins, $hours, $day, $month, $year );
++              return &::timegm( $secs, $mins, $hours, $day, $month, $year );
+       }
+ }
+ 
+ # input time number, output GMT string as "dd Mmm YY HH:MM"
+-sub main'time_to_standard
++sub main::time_to_standard
+ {
+       package dateconv;
+ 
+@@ -149,5 +150,5 @@
  
        local( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) =
                 gmtime( $time );

Added files:

Index: pkgsrc/net/mirror/patches/patch-lsparse.pl
diff -u /dev/null pkgsrc/net/mirror/patches/patch-lsparse.pl:1.1.2.2
--- /dev/null   Mon Apr 22 18:28:54 2024
+++ pkgsrc/net/mirror/patches/patch-lsparse.pl  Mon Apr 22 18:28:54 2024
@@ -0,0 +1,526 @@
+$NetBSD: patch-lsparse.pl,v 1.1.2.2 2024/04/22 18:28:54 bsiegert Exp $
+
+* Fix deprecation warning (change ' to ::) for newer perl
+
+--- lsparse.pl.orig    1998-05-29 21:04:23.000000000 +0200
++++ lsparse.pl 2024-04-11 11:07:48.800742520 +0200
+@@ -14,7 +14,7 @@
+ # This software is provided "as is" without express or implied warranty.
+ #
+ # Parse "ls -lR" type listings
+-# use lsparse'reset( dirname ) repeately
++# use lsparse::reset( dirname ) repeately
+ #
+ # By Lee McLoughlin <lmjm%icparc.ic.ac.uk@localhost>
+ #
+@@ -61,18 +61,18 @@
+ local( $match );
+ 
+ # The filestore type being scanned
+-$lsparse'fstype = 'unix';
++$lsparse::fstype = 'unix';
+ 
+ # Keep whatever case is on the remote system.  Otherwise lowercase it.
+-$lsparse'vms_keep_case = '';
++$lsparse::vms_keep_case = '';
+ 
+ # A name to report when errors occur
+-$lsparse'name = 'unknown';
++$lsparse::name = 'unknown';
+ 
+ # Wether to report subdirs when finding them in a directory
+ # or when their details appear.  (If you report early then mirro might
+ # recreate locally remote restricted directories.)
+-$lsparse'report_subdir = 0;   # Report when finding details.
++$lsparse::report_subdir = 0;  # Report when finding details.
+ 
+ 
+ # Name of routine to call to parse incoming listing lines
+@@ -81,7 +81,7 @@
+ # Set the directory that is being scanned and
+ # check that the scan routing for this fstype exists
+ # returns false if the fstype is unknown.
+-sub lsparse'reset
++sub lsparse::reset
+ {
+       $here = $currdir = $_[0];
+       $now = time;
+@@ -91,17 +91,17 @@
+       $vms_strip =~ s,^/+,,;
+       $vms_strip =~ s,/+$,,;
+ 
+-      $ls_line = "lsparse'line_$fstype";
++      $ls_line = "lsparse::line_$fstype";
+       return( defined( &$ls_line ) );
+ }
+ 
+ # See line_unix following routine for call/return details.
+ # This calls the filestore specific parser.
+-sub lsparse'line
++sub lsparse::line
+ {
+       local( $fh ) = @_;
+ 
+-      # ls_line is setup in lsparse'reset to the name of the function
++      # ls_line is setup in lsparse::reset to the name of the function
+       local( $path, $size, $time, $type, $mode ) =
+               eval "&$ls_line( \$fh )";
+ 
+@@ -119,7 +119,7 @@
+ # time is a Un*x time value for the file
+ # type is "f" for a file, "d" for a directory and
+ #         "l linkname" for a symlink
+-sub lsparse'line_unix
++sub lsparse::line_unix
+ {
+       local( $fh ) = @_;
+       local( $non_crud, $perm_denied );
+@@ -132,7 +132,7 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               # Stomp on carriage returns
+               s/\015//g;
+@@ -168,7 +168,7 @@
+               if( $perm_denied ){
+                       $perm_denied = "";
+                       warn "Warning: input corrupted by 'Permission denied'",
+-                              "errors, about line $. of $lsparse'name\n";
++                              "errors, about line $. of $lsparse::name\n";
+                       next;
+               }
+               # Not found's are like Permission denied's.  They can start part
+@@ -180,7 +180,7 @@
+               if( $not_found ){
+                       $not_found = "";
+                       warn "Warning: input corrupted by 'not found' errors",
+-                              " about line $. of $lsparse'name\n";
++                              " about line $. of $lsparse::name\n";
+                       next;
+               }
+               
+@@ -196,7 +196,7 @@
+                               next;
+                       }
+ 
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+                       local( $type ) = '?';
+                       local( $mode ) = 0;
+ 
+@@ -316,7 +316,7 @@
+ # time is a Un*x time value for the file
+ # type is "f" for a file, "d" for a directory and
+ #         "l linkname" for a symlink
+-sub lsparse'line_dls
++sub lsparse::line_dls
+ {
+       local( $fh ) = @_;
+       local( $non_crud, $perm_denied );
+@@ -327,7 +327,7 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               # Stomp on carriage returns
+               s/\015//g;
+@@ -350,7 +350,7 @@
+                       }
+                       else {
+                               # a file
+-                              $time = &main'lstime_to_time( $lsdate );
++                              $time = &main::lstime_to_time( $lsdate );
+                               $type = 'f';
+                               $mode = 0444;
+                       }
+@@ -400,7 +400,7 @@
+ # time is a Un*x time value for the file
+ # type is "f" for a file, "d" for a directory and
+ #         "l linkname" for a symlink
+-sub lsparse'line_netware
++sub lsparse::line_netware
+ {
+       local( $fh ) = @_;
+ 
+@@ -410,7 +410,7 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               # Stomp on carriage returns
+               s/\015//g;
+@@ -435,7 +435,7 @@
+                       if( $file eq '.' || $file eq '..' ){
+                               next;
+                       }
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+                       local( $type ) = '?';
+                       local( $mode ) = 0;
+ 
+@@ -509,7 +509,7 @@
+ # time is a Un*x time value for the file
+ # type is "f" for a file, "d" for a directory and
+ #         "l linkname" for a symlink
+-sub lsparse'line_vms
++sub lsparse::line_vms
+ {
+       local( $fh ) = @_;
+       local( $non_crud, $perm_denied );
+@@ -520,7 +520,7 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               # Stomp on carriage returns
+               s/\015//g;
+@@ -543,7 +543,7 @@
+               }
+ 
+               # Upper case is so ugly
+-              if( ! $lsparse'vms_keep_case ){
++              if( ! $lsparse::vms_keep_case ){
+                       tr/A-Z/a-z/;
+               }
+ 
+@@ -584,7 +584,7 @@
+               $size = 0;
+               
+               if( $got ){
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+                       local( $type ) = 'f';
+                       local( $mode ) = 0444;
+ 
+@@ -610,7 +610,7 @@
+                               $mode = 0555;
+                       }
+ 
+-                      $lsparse'vers = $vers;
++                      $lsparse::vers = $vers;
+ 
+ #print "file=|$file| match=|$match| vms_strip=|$vms_strip|\n";
+                       $file =~ s,^,/,;
+@@ -653,7 +653,7 @@
+ # time is a Un*x time value for the file
+ # type is "f" for a file, "d" for a directory and
+ #         "l linkname" for a symlink
+-sub lsparse'line_dosftp
++sub lsparse::line_dosftp
+ {
+       local( $fh ) = @_;
+ 
+@@ -670,7 +670,7 @@
+                       $_ = <$fh>;
+ 
+                       # Store listing
+-                      print main'STORE $_;
++                      print main::STORE $_;
+ 
+                       # Ignore the summary at the end and blank lines
+                       if( /^\d+ files?\./ || /^\s+$/ ){
+@@ -691,7 +691,7 @@
+ 
+                       # TODO: fix hacky 19$yr
+                       local( $lsdate ) = "$day-$mon-19$yr $hrs:$min";
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+                       local( $type ) = '?';
+                       local( $mode ) = 0;
+ 
+@@ -736,7 +736,7 @@
+ # 03-08-94  07:17AM                 5504 article.xfiles.intro
+ # 02-28-94  11:44AM                 3262 article1.gillian.anderson
+ 
+-sub lsparse'line_dosish
++sub lsparse::line_dosish
+ {
+       local( $fh ) = @_;
+ 
+@@ -748,7 +748,7 @@
+               $_ = <$fh>;
+ 
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               # Ignore blank lines
+               if( /^\s+$/ ){
+@@ -775,7 +775,7 @@
+ 
+                       # TODO: fix hacky 19$yr
+                       local( $lsdate ) = "$day-$mon-19$yr $hrs:$min";
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+                       local( $type ) = ($dir_or_size eq '<DIR>' ? 'd' : 'f');
+                       local( $mode ) = 0;
+                       local( $size ) = 0;
+@@ -842,7 +842,7 @@
+ # WPKIT1.EXE          960338      06/21/95        17:01
+ # CMT.CSV                  0      07/06/95        14:56
+ 
+-sub lsparse'line_supertcp
++sub lsparse::line_supertcp
+ {
+     local( $fh ) = @_;
+ 
+@@ -860,7 +860,7 @@
+           $_ = <$fh>;
+ 
+           # Store listing
+-          print main'STORE $_;
++          print main::STORE $_;
+ 
+           # Ignore the summary at the end and blank lines
+           if( /^\d+ files?\./ || /^\s+$/ ){
+@@ -885,7 +885,7 @@
+           $pending = $5;
+ 
+           local( $lsdate ) = "$day-$mon-$yr $time";
+-          local( $time ) = &main'lstime_to_time( $lsdate );
++          local( $time ) = &main::lstime_to_time( $lsdate );
+             local( $type ) = '?';
+           local( $mode ) = 0;
+ 
+@@ -931,7 +931,7 @@
+ #               372      A          08-09-95   10:26  Aussie_1.bag
+ #            310992                 06-28-94   09:56  INSTALL.EXE
+ 
+-sub lsparse'line_os2
++sub lsparse::line_os2
+ {
+       local( $fh ) = @_;
+ 
+@@ -943,7 +943,7 @@
+               $_ = <$fh>;
+ 
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               # Ignore blank lines
+               if( /^\s+$/ ){
+@@ -971,7 +971,7 @@
+ 
+                       # TODO: fix hacky 19$yr
+                       local( $lsdate ) = "$day-$mon-19$yr $hrs:$min";
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+                       local( $type ) = ($dir eq 'DIR' ? 'd' : 'f');
+                       local( $mode ) = 0;
+ 
+@@ -999,7 +999,7 @@
+ # time is a Un*x time value for the file
+ # type is "f" for a file, "d" for a directory and
+ #         "l linkname" for a symlink
+-sub lsparse'line_chameleon
++sub lsparse::line_chameleon
+ {
+     local( $fh ) = @_;
+ 
+@@ -1038,7 +1038,7 @@
+           $pending = $5;
+ 
+           local( $lsdate ) = "$day-$mon-$yr $time";
+-          local( $time ) = &main'lstime_to_time( $lsdate );
++          local( $time ) = &main::lstime_to_time( $lsdate );
+             local( $type ) = '?';
+           local( $mode ) = 0;
+ 
+@@ -1076,7 +1076,7 @@
+ # time is a Un*x time value for the file
+ # type is "f" for a file, "d" for a directory and
+ #         "l linkname" for a symlink
+-sub lsparse'line_macos
++sub lsparse::line_macos
+ {
+       local( $fh ) = @_;
+       local( $non_crud, $perm_denied );
+@@ -1087,7 +1087,7 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               # Stomp on carriage returns
+               s/\015//g;
+@@ -1098,7 +1098,7 @@
+               if( /^([\-rwxd]{10}).*\s(\d+\s+)?(\S+)\s+\d+\s*(\w\w\w\s+\d+\s*(\d+:\d+|\d\d\d\d))\s+(.*)\n/ ){
+                       local( $kind, $size, $lsdate, $file ) = ($1, $3, $4, $6);
+                       
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+                       local( $type ) = '?';
+                       local( $mode ) = 0;
+ 
+@@ -1126,18 +1126,18 @@
+ 
+ 
+ # --------------------- parse lsparse log file format
+-# lsparse'line_lsparse() is for input in lsparse's internal form,
++# lsparse::line_lsparse() is for input in lsparse's internal form,
+ # as it might have been written to a log file during a previous
+ # run of a program that uses lsparse.  The format is:
+ #     filename size time type mode
+ # where size and time are in decimal, mode is in decimal or octal,
+ # and type is one or two words.
+-sub lsparse'line_lsparse
++sub lsparse::line_lsparse
+ {
+       local( $fh ) = @_;
+ 
+-      if( $lsparse'readtime ){
+-              alarm( $lsparse'readtime );
++      if( $lsparse::readtime ){
++              alarm( $lsparse::readtime );
+       }
+ 
+       if( eof( $fh ) ){
+@@ -1147,7 +1147,7 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               if( /^(\S+)\s+(\d+)\s+(\d+)\s+((l\s+)?\S+)\s+(\d+)\n$/ ){
+                       # looks good.
+@@ -1174,12 +1174,12 @@
+ # This is the format used at sumex-aim.stanford.edu for the info-mac area.
+ # (see info-mac/help/all-files.txt.gz).
+ #
+-sub lsparse'line_infomac
++sub lsparse::line_infomac
+ {
+       local( $fh ) = @_;
+ 
+-      if( $lsparse'readtime ){
+-              alarm( $lsparse'readtime );
++      if( $lsparse::readtime ){
++              alarm( $lsparse::readtime );
+       }
+ 
+       if( eof( $fh ) ){
+@@ -1189,13 +1189,13 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               next if /^;/;
+               if( /^([l-].)\s*(\d+)\s*(\w\w\w\s+\d+\s*(\d+:\d+|\d\d\d\d))\s+(.*)\n/ ){
+                       local( $kind, $size, $lsdate, $file ) = ($1, $2, $3, $5);
+                       
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+ 
+                       # This should be a symlink
+                       if( $kind =~ /^l/ && $file =~ /(.*) -> (.*)/ ){
+@@ -1226,12 +1226,12 @@
+ # +i8388621.48638,m848117771,r,s1336,     qmsmac.html
+ # +i8388621.88705,m850544954,/,   txt
+ #
+-sub lsparse'line_eplf
++sub lsparse::line_eplf
+ {
+       local( $fh ) = @_;
+ 
+-      if( $lsparse'readtime ){
+-              alarm( $lsparse'readtime );
++      if( $lsparse::readtime ){
++              alarm( $lsparse::readtime );
+       }
+ 
+       if( eof( $fh ) ){
+@@ -1243,7 +1243,7 @@
+               s/\015//g;
+ 
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+ # +i8388621.48638,m848117771,r,s1336,     qmsmac.html
+ # +i8388621.88705,m850544954,/,   txt
+@@ -1272,12 +1272,12 @@
+ # --------------------- CTAN files list
+ #    22670 Mon Jul 20 12:36:34 1992 pub/tex/biblio/bibtex/contrib/aaai-named.bst
+ #
+-sub lsparse'line_ctan
++sub lsparse::line_ctan
+ {
+       local( $fh ) = @_;
+ 
+-      if( $lsparse'readtime ){
+-              alarm( $lsparse'readtime );
++      if( $lsparse::readtime ){
++              alarm( $lsparse::readtime );
+       }
+ 
+       if( eof( $fh ) ){
+@@ -1287,12 +1287,12 @@
+ 
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               if( /^\s*(\d+)\s+(\w\w\w\s+\w\w\w\s+\d+\s+\d+:\d+:\d+\s+\d+)\s+(.*)\n/ ){
+                       local( $size, $lsdate, $file ) = ($1, $2, $3);
+                       
+-                      local( $time ) = &main'lstime_to_time( $lsdate );
++                      local( $time ) = &main::lstime_to_time( $lsdate );
+ 
+                       return( $file, $size, $time, 'f', 0444 );
+               }
+@@ -1317,12 +1317,12 @@
+ # time is a Un*x time value for the file -- this is good from the m/f
+ # type is always "f" for a file
+ 
+-sub lsparse'line_cms
++sub lsparse::line_cms
+ {
+       local( $fh ) = @_;
+ 
+-      if( $lsparse'readtime ){
+-              alarm( $lsparse'readtime );
++      if( $lsparse::readtime ){
++              alarm( $lsparse::readtime );
+       }
+ 
+       if( eof( $fh ) ){
+@@ -1331,21 +1331,21 @@
+       }
+       while( <$fh> ){
+               # Store listing
+-              print main'STORE $_;
++              print main::STORE $_;
+ 
+               chop;
+               next unless /\d+\/\d+\/\d+\s+\d+:\d+:\d+/;
+               s/^\s+//;
+ 
+               # Upper case is so ugly
+-              if( ! $lsparse'vms_keep_case ){
++              if( ! $lsparse::vms_keep_case ){
+                       tr/A-Z/a-z/;
+               }
+ 
+               local( $fname, $ftype, $fdisk, $rectype, $lrecl, $recs,
+                     $blocks, $ldate, $tod ) = split(/\s+/, $_);
+               return( join('.', ($fname, $ftype, $fdisk)),
+-                     $lrecl * $recs, &main'lstime_to_time( "$ldate $tod" ),
++                     $lrecl * $recs, &main::lstime_to_time( "$ldate $tod" ),
+                      'f' );
+       }
+       alarm( 0 );



Home | Main Index | Thread Index | Old Index