>> ./mysql-test/mysql-test-run.pl:3: $ENV{MTR_BINDIR} = '/Users/dimitrisstaratzis/Documents/server/builddir';
>> ./mysql-test/mysql-test-run.pl:4: chdir('/Users/dimitrisstaratzis/Documents/server/mysql-test');
>> ./mysql-test/mysql-test-run.pl:5: exit(system($^X, '-d:Trace', '/Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl', @ARGV) >> 8);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:108: require "mtr_process.pl";
>> lib/mtr_process.pl:21: use strict;
>> lib/mtr_process.pl:21: use strict;
>> lib/mtr_process.pl:21: use strict;
>> /System/Library/Perl/5.30/strict.pm:61:     shift;
>> /System/Library/Perl/5.30/strict.pm:62:     $^H |= @_ ? &bits : all_bits | all_explicit_bits;
>> lib/mtr_process.pl:22: use Socket;
>> lib/mtr_process.pl:22: use Socket;
>> lib/mtr_process.pl:22: use Socket;
>> /System/Library/Perl/5.30/Exporter.pm:29:   my $pkg = shift;
>> /System/Library/Perl/5.30/Exporter.pm:30:   my $callpkg = caller($ExportLevel);
>> /System/Library/Perl/5.30/Exporter.pm:32:   if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:42:   return export $pkg, $callpkg, @_
>> /System/Library/Perl/5.30/Exporter.pm:44:   my $export_cache = ($Cache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter.pm:45:   my $args = @_ or @_ = @$exports;
>> /System/Library/Perl/5.30/Exporter.pm:47:   if ($args and not %$export_cache) {
>> /System/Library/Perl/5.30/Exporter.pm:51:   my $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:54:   if ($args or $fail) {
>> /System/Library/Perl/5.30/Exporter.pm:57:                  foreach (@_);
>> /System/Library/Perl/5.30/Exporter.pm:62:   return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:64: 	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> lib/mtr_process.pl:23: use Errno;
>> lib/mtr_process.pl:23: use Errno;
>> lib/mtr_process.pl:23: use Errno;
>> /System/Library/Perl/5.30/Exporter.pm:29:   my $pkg = shift;
>> /System/Library/Perl/5.30/Exporter.pm:30:   my $callpkg = caller($ExportLevel);
>> /System/Library/Perl/5.30/Exporter.pm:32:   if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:42:   return export $pkg, $callpkg, @_
>> /System/Library/Perl/5.30/Exporter.pm:44:   my $export_cache = ($Cache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter.pm:45:   my $args = @_ or @_ = @$exports;
>> /System/Library/Perl/5.30/Exporter.pm:47:   if ($args and not %$export_cache) {
>> /System/Library/Perl/5.30/Exporter.pm:51:   my $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:54:   if ($args or $fail) {
>> /System/Library/Perl/5.30/Exporter.pm:60:       foreach (@_);
>> /System/Library/Perl/5.30/Exporter.pm:62:   return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:64: 	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> lib/mtr_process.pl:24: use My::Platform;
>> lib/mtr_process.pl:24: use My::Platform;
>> lib/mtr_process.pl:24: use My::Platform;
>> /System/Library/Perl/5.30/Exporter.pm:29:   my $pkg = shift;
>> /System/Library/Perl/5.30/Exporter.pm:30:   my $callpkg = caller($ExportLevel);
>> /System/Library/Perl/5.30/Exporter.pm:32:   if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:42:   return export $pkg, $callpkg, @_
>> /System/Library/Perl/5.30/Exporter.pm:44:   my $export_cache = ($Cache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter.pm:45:   my $args = @_ or @_ = @$exports;
>> /System/Library/Perl/5.30/Exporter.pm:47:   if ($args and not %$export_cache) {
>> /System/Library/Perl/5.30/Exporter.pm:51:   my $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:54:   if ($args or $fail) {
>> /System/Library/Perl/5.30/Exporter.pm:60:       foreach (@_);
>> /System/Library/Perl/5.30/Exporter.pm:62:   return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:64: 	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> lib/mtr_process.pl:25: use if IS_WINDOWS, "Net::Ping";
>> lib/mtr_process.pl:25: use if IS_WINDOWS, "Net::Ping";
>> lib/mtr_process.pl:25: use if IS_WINDOWS, "Net::Ping";
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> /System/Library/Perl/5.30/if.pm:20: sub import   { shift; unshift @_, 1; goto &work }
>> /System/Library/Perl/5.30/if.pm:20: sub import   { shift; unshift @_, 1; goto &work }
>> /System/Library/Perl/5.30/if.pm:20: sub import   { shift; unshift @_, 1; goto &work }
>> /System/Library/Perl/5.30/if.pm:6:   my $method = shift() ? 'import' : 'unimport';
>> /System/Library/Perl/5.30/if.pm:7:   unless (@_ >= 2) {
>> /System/Library/Perl/5.30/if.pm:11:   return unless shift;		# CONDITION
>> lib/mtr_process.pl:31:   my $use_netping= 0;
>> lib/mtr_process.pl:32:   if (IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_process.pl:40:   eval 'sub USE_NETPING { $use_netping }';
>> lib/mtr_process.pl:154: 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:109: require "mtr_io.pl";
>> lib/mtr_io.pl:22: use strict;
>> lib/mtr_io.pl:22: use strict;
>> lib/mtr_io.pl:22: use strict;
>> /System/Library/Perl/5.30/strict.pm:61:     shift;
>> /System/Library/Perl/5.30/strict.pm:62:     $^H |= @_ ? &bits : all_bits | all_explicit_bits;
>> lib/mtr_io.pl:23: use Carp;
>> lib/mtr_io.pl:23: use Carp;
>> lib/mtr_io.pl:23: use Carp;
>> /System/Library/Perl/5.30/Exporter.pm:29:   my $pkg = shift;
>> /System/Library/Perl/5.30/Exporter.pm:30:   my $callpkg = caller($ExportLevel);
>> /System/Library/Perl/5.30/Exporter.pm:32:   if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:42:   return export $pkg, $callpkg, @_
>> /System/Library/Perl/5.30/Exporter.pm:44:   my $export_cache = ($Cache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter.pm:45:   my $args = @_ or @_ = @$exports;
>> /System/Library/Perl/5.30/Exporter.pm:47:   if ($args and not %$export_cache) {
>> /System/Library/Perl/5.30/Exporter.pm:51:   my $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:54:   if ($args or $fail) {
>> /System/Library/Perl/5.30/Exporter.pm:57:                  foreach (@_);
>> /System/Library/Perl/5.30/Exporter.pm:62:   return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:64: 	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> lib/mtr_io.pl:24: use My::Platform;
>> lib/mtr_io.pl:24: use My::Platform;
>> lib/mtr_io.pl:24: use My::Platform;
>> /System/Library/Perl/5.30/Exporter.pm:29:   my $pkg = shift;
>> /System/Library/Perl/5.30/Exporter.pm:30:   my $callpkg = caller($ExportLevel);
>> /System/Library/Perl/5.30/Exporter.pm:32:   if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:42:   return export $pkg, $callpkg, @_
>> /System/Library/Perl/5.30/Exporter.pm:44:   my $export_cache = ($Cache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter.pm:45:   my $args = @_ or @_ = @$exports;
>> /System/Library/Perl/5.30/Exporter.pm:47:   if ($args and not %$export_cache) {
>> /System/Library/Perl/5.30/Exporter.pm:51:   my $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:54:   if ($args or $fail) {
>> /System/Library/Perl/5.30/Exporter.pm:60:       foreach (@_);
>> /System/Library/Perl/5.30/Exporter.pm:62:   return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:64: 	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> lib/mtr_io.pl:112: 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:110: require "mtr_gprof.pl";
>> lib/mtr_gprof.pl:21: use strict;
>> lib/mtr_gprof.pl:21: use strict;
>> lib/mtr_gprof.pl:21: use strict;
>> /System/Library/Perl/5.30/strict.pm:61:     shift;
>> /System/Library/Perl/5.30/strict.pm:62:     $^H |= @_ ? &bits : all_bits | all_explicit_bits;
>> lib/mtr_gprof.pl:41: 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:111: require "mtr_misc.pl";
>> lib/mtr_misc.pl:23: use strict;
>> lib/mtr_misc.pl:23: use strict;
>> lib/mtr_misc.pl:23: use strict;
>> /System/Library/Perl/5.30/strict.pm:61:     shift;
>> /System/Library/Perl/5.30/strict.pm:62:     $^H |= @_ ? &bits : all_bits | all_explicit_bits;
>> lib/mtr_misc.pl:25: use My::Platform;
>> lib/mtr_misc.pl:25: use My::Platform;
>> lib/mtr_misc.pl:25: use My::Platform;
>> /System/Library/Perl/5.30/Exporter.pm:29:   my $pkg = shift;
>> /System/Library/Perl/5.30/Exporter.pm:30:   my $callpkg = caller($ExportLevel);
>> /System/Library/Perl/5.30/Exporter.pm:32:   if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:38:   my $exports = \@{"$pkg\::EXPORT"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:41:   my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
>> /System/Library/Perl/5.30/Exporter.pm:42:   return export $pkg, $callpkg, @_
>> /System/Library/Perl/5.30/Exporter.pm:44:   my $export_cache = ($Cache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter.pm:45:   my $args = @_ or @_ = @$exports;
>> /System/Library/Perl/5.30/Exporter.pm:47:   if ($args and not %$export_cache) {
>> /System/Library/Perl/5.30/Exporter.pm:51:   my $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:54:   if ($args or $fail) {
>> /System/Library/Perl/5.30/Exporter.pm:60:       foreach (@_);
>> /System/Library/Perl/5.30/Exporter.pm:62:   return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
>> /System/Library/Perl/5.30/Exporter.pm:64: 	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> /System/Library/Perl/5.30/Exporter.pm:66:   *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
>> lib/mtr_misc.pl:280: use Time::HiRes qw(gettimeofday);
>> lib/mtr_misc.pl:280: use Time::HiRes qw(gettimeofday);
>> lib/mtr_misc.pl:280: use Time::HiRes qw(gettimeofday);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Time/HiRes.pm:77:     my $this = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Time/HiRes.pm:78:     for my $i (@_) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Time/HiRes.pm:79: 	if (($i eq 'clock_getres'    && !&d_clock_getres)    ||
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Time/HiRes.pm:91:     Time::HiRes->export_to_level(1, $this, @_);
>> /System/Library/Perl/5.30/Exporter.pm:81:   goto &{as_heavy()};
>> /System/Library/Perl/5.30/Exporter.pm:81:   goto &{as_heavy()};
>> /System/Library/Perl/5.30/Exporter.pm:16:   require Exporter::Heavy;
>> /System/Library/Perl/5.30/Exporter.pm:19:   my $c = (caller(1))[3];
>> /System/Library/Perl/5.30/Exporter.pm:20:   $c =~ s/.*:://;
>> /System/Library/Perl/5.30/Exporter.pm:21:   \&{"Exporter::Heavy::heavy_$c"};
>> /System/Library/Perl/5.30/Exporter.pm:21:   \&{"Exporter::Heavy::heavy_$c"};
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:215:       my $pkg = shift;
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:216:       my $level = shift;
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:217:       (undef) = shift;			# XXX redundant arg
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:218:       my $callpkg = caller($level);
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:219:       $pkg->export($callpkg, @_);
>> /System/Library/Perl/5.30/Exporter.pm:25:   goto &{as_heavy()};
>> /System/Library/Perl/5.30/Exporter.pm:25:   goto &{as_heavy()};
>> /System/Library/Perl/5.30/Exporter.pm:16:   require Exporter::Heavy;
>> /System/Library/Perl/5.30/Exporter.pm:19:   my $c = (caller(1))[3];
>> /System/Library/Perl/5.30/Exporter.pm:20:   $c =~ s/.*:://;
>> /System/Library/Perl/5.30/Exporter.pm:21:   \&{"Exporter::Heavy::heavy_$c"};
>> /System/Library/Perl/5.30/Exporter.pm:21:   \&{"Exporter::Heavy::heavy_$c"};
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:42:     my $oldwarn = $SIG{__WARN__};
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:57:     };
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:63:     };
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:65:     my($pkg, $callpkg, @imports) = @_;
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:66:     my($type, $sym, $cache_is_current, $oops);
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:68:                                    $Exporter::Cache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:67:     my($exports, $export_cache) = (\@{"${pkg}::EXPORT"},
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:70:     if (@imports) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:71: 	if (!%$export_cache) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:76: 	if (grep m{^[/!:]}, @imports) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:121:         my @carp;
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:122: 	foreach $sym (@imports) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:123: 	    if (!$export_cache->{$sym}) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:157: 	if ($oops) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:167:                               $Exporter::FailCache{$pkg} ||= {});
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:166:     my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"},
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:169:     if (@$fail) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:194:     warn "Importing into $callpkg from $pkg: ",
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:197:     foreach $sym (@imports) {
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:199: 	(*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:199: 	(*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
>> /System/Library/Perl/5.30/Exporter/Heavy.pm:199: 	(*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
>> lib/mtr_misc.pl:46: our $opt_report_times;
>> lib/mtr_misc.pl:282: my %time_used= (
>> lib/mtr_misc.pl:292: my %time_text= (
>> lib/mtr_misc.pl:304: my $time_totals= 0;
>> lib/mtr_misc.pl:306: my $last_timer_set;
>> lib/mtr_misc.pl:361: 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:113: my $opt_valgrind;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:114: my $valgrind_reports= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:116: $SIG{INT}= sub { mtr_error("Got ^C signal"); };
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:117: $SIG{HUP}= sub { mtr_error("Hangup detected on controlling terminal"); };
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:119: our $mysql_version_id;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:120: my $mysql_version_extra;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:121: our $glob_mysql_test_dir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:122: our $basedir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:123: our $bindir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:125: our $path_charsetsdir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:126: our $path_client_bindir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:127: our $path_client_libdir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:128: our $path_language;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:130: our $path_current_testlog;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:131: our $path_testlog;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:133: our $default_vardir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:134: our $opt_vardir;                # Path to use for var/ dir
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:135: our $plugindir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:136: our $opt_xml_report;            # XML output
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:137: our $client_plugindir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:138: my $path_vardir_trace;          # unix formatted opt_vardir for trace files
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:139: my $opt_tmpdir;                 # Path to use for tmp/ dir
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:140: my $opt_tmpdir_pid;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:142: my $opt_start;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:143: my $opt_start_dirty;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:144: my $opt_start_exit;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:145: my $start_only;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:146: my $file_wsrep_provider;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:147: my $num_saved_cores= 0;  # Number of core files saved in vardir/log/ so far.
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:149: our @global_suppressions;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:169: my $path_config_file;           # The generated config file, var/my.cnf
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:175: our $multiconfig = $ENV{'MTR_VS_CONFIG'};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:177: my @DEFAULT_SUITES= qw(
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:221: my $opt_suites;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:223: our $opt_verbose= 0;  # Verbose output, enable with --verbose
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:224: our $exe_patch;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:225: our $exe_mysql;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:226: our $exe_mysql_plugin;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:227: our $exe_mysqladmin;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:228: our $exe_mysqltest;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:229: our $exe_libtool;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:230: our $exe_mysql_embedded;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:231: our $exe_mariadb_conv;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:233: our $opt_big_test= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:234: our $opt_staging_run= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:236: our @opt_combinations;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:238: our @opt_extra_mysqld_opt;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:239: our @opt_mysqld_envs;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:241: my $opt_stress;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:242: my $opt_tail_lines= 20;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:244: my $opt_dry_run;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:246: my $opt_compress;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:247: my $opt_ssl;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:248: my $opt_skip_ssl;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:249: my @opt_skip_test_list;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:250: our $opt_ssl_supported;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:251: our $opt_ps_protocol;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:252: my $opt_sp_protocol;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:253: my $opt_cursor_protocol;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:254: my $opt_view_protocol;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:255: my $opt_non_blocking_api;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:257: our $opt_debug;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:258: my $debug_d= "d,*";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:259: my $opt_debug_common;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:260: our $opt_debug_server;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:261: our @opt_cases;                  # The test cases names in argv
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:262: our $opt_embedded_server;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:265: my %opts_extern;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:268: our $opt_fast= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:269: our $opt_force= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:270: our $opt_mem= $ENV{'MTR_MEM'};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:271: our $opt_clean_vardir= $ENV{'MTR_CLEAN_VARDIR'};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:273: our $opt_gcov;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:274: our $opt_gprof;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:275: our %gprof_dirs;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:277: my $config; # The currently running config
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:278: my $current_config_name; # The currently running config file template
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:280: our @opt_experimentals;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:281: our $experimental_test_cases= [];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:283: our $baseport;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:285: my $opt_build_thread= $ENV{'MTR_BUILD_THREAD'} || "auto";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:286: my $opt_port_base= $ENV{'MTR_PORT_BASE'} || "auto";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:287: my $build_thread= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:289: my $opt_record;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:291: our $opt_resfile= $ENV{'MTR_RESULT_FILE'} || 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:293: my $opt_skip_core;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:295: our $opt_check_testcases= 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:296: my $opt_mark_progress;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:297: my $opt_max_connections;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:298: our $opt_report_times= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:300: my $opt_sleep;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:302: our $opt_retry= 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:303: our $opt_retry_failure= env_or_val(MTR_RETRY_FAILURE => 2);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:167: sub env_or_val($$) { defined $ENV{$_[0]} ? $ENV{$_[0]} : $_[1] }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:304: our $opt_testcase_timeout= $ENV{MTR_TESTCASE_TIMEOUT} ||  15; # minutes
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:305: our $opt_suite_timeout   = $ENV{MTR_SUITE_TIMEOUT}    || 360; # minutes
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:306: our $opt_shutdown_timeout= $ENV{MTR_SHUTDOWN_TIMEOUT} ||  10; # seconds
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:307: our $opt_start_timeout   = $ENV{MTR_START_TIMEOUT}    || 180; # seconds
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:311: my $opt_wait_all;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:312: my $opt_user_args;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:313: my $opt_repeat= 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:314: my $opt_reorder= 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:315: my $opt_force_restart= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:317: our $opt_user = "root";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:319: my %mysqld_logs;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:320: my $opt_debug_sync_timeout= 300; # Default timeout for WAIT_FOR actions.
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:321: my $warn_seconds = 60;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:323: my $rebootstrap_re= '--innodb[-_](?:page[-_]size|checksum[-_]algorithm|undo[-_]tablespaces|log[-_]group[-_]home[-_]dir|data[-_]home[-_]dir)|data[-_]file[-_]path|force_rebootstrap';
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:328: our $opt_warnings= 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:330: our %mysqld_variables;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:331: our @optional_plugins;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:333: my $source_dist=  -d "../sql";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:335: my $opt_max_save_core= env_or_val(MTR_MAX_SAVE_CORE => 5);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:167: sub env_or_val($$) { defined $ENV{$_[0]} ? $ENV{$_[0]} : $_[1] }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:336: my $opt_max_save_datadir= env_or_val(MTR_MAX_SAVE_DATADIR => 20);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:167: sub env_or_val($$) { defined $ENV{$_[0]} ? $ENV{$_[0]} : $_[1] }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:337: my $opt_max_test_fail= env_or_val(MTR_MAX_TEST_FAIL => 10);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:167: sub env_or_val($$) { defined $ENV{$_[0]} ? $ENV{$_[0]} : $_[1] }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:338: my $opt_core_on_failure= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:340: my $opt_parallel= $ENV{MTR_PARALLEL} || 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:341: my $opt_port_group_size = $ENV{MTR_PORT_GROUP_SIZE} || 20;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:344: my $opt_stop_file= $ENV{MTR_STOP_FILE};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:346: my $opt_stop_keep_alive= $ENV{MTR_STOP_KEEP_ALIVE};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:348: select(STDOUT);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:349: $| = 1; # Automatically flush STDOUT
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:351: main();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:354:   $ENV{MTR_PERL}=$^X;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:357:   report_option('verbose', 0);
>> lib/mtr_report.pm:97:   my ($opt, $value)= @_;
>> lib/mtr_report.pm:100:   my $opt_name = "$opt";
>> lib/mtr_report.pm:103:   $opt_name =~ s/-/_/g;
>> lib/mtr_report.pm:105:   ${$opt_name}= $value;
>> lib/mtr_report.pm:105:   ${$opt_name}= $value;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:362:   mtr_report("Logging: $0 ", join(" ", @ARGV));
>> lib/mtr_report.pm:659:   if (defined $verbose)
>> lib/mtr_report.pm:661:     my @s = split /\[ (\S+) \]/, _name() . "@_\n";
>> lib/mtr_report.pm:109:   return $name ? $name." " : undef;
>> lib/mtr_report.pm:662:     if (@s > 1) {
>> lib/mtr_report.pm:670:       print $s[0];
Logging: /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl  
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:364:   command_line_setup();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1094:   my $opt_comment;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1095:   my $opt_usage;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1096:   my $opt_list_options;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1100:   Getopt::Long::Configure("pass_through");
>> /System/Library/Perl/5.30/Getopt/Long.pm:1331:     my (@options) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:1333:     my $prevconfig =
>> /System/Library/Perl/5.30/Getopt/Long.pm:1339:     if ( ref($options[0]) eq 'ARRAY' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:1346:     my $opt;
>> /System/Library/Perl/5.30/Getopt/Long.pm:1347:     foreach $opt ( @options ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:1348: 	my $try = lc ($opt);
>> /System/Library/Perl/5.30/Getopt/Long.pm:1349: 	my $action = 1;
>> /System/Library/Perl/5.30/Getopt/Long.pm:1350: 	if ( $try =~ /^no_?(.*)$/s ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:1354: 	if ( ($try eq 'default' or $try eq 'defaults') && $action ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:1415: 	    $passthrough = $action;
>> /System/Library/Perl/5.30/Getopt/Long.pm:1447:     $prevconfig;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1101:   my %options=(
>> lib/My/Debugger.pm:191: sub options() { %opts }
>> lib/My/CoreDump.pm:119: sub options() { %opts }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1224:   @ARGV = My::Debugger::fix_options(@ARGV);
>> lib/My/Debugger.pm:195:   my $re=join '|', keys %opts;
>> lib/My/Debugger.pm:196:   $re =~ s/=s//g;
>> lib/My/Debugger.pm:198:   map { $_ . (/^--($re)$/ and '=;') } @_;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1225:   GetOptions(%options) or usage("Can't read options");
>> /System/Library/Perl/5.30/Getopt/Long.pm:268:     unshift(@_, \@ARGV);
>> /System/Library/Perl/5.30/Getopt/Long.pm:270:     goto &GetOptionsFromArray;
>> /System/Library/Perl/5.30/Getopt/Long.pm:289:     my ($argv, @optionlist) = @_;	# local copy of the option descriptions
>> /System/Library/Perl/5.30/Getopt/Long.pm:290:     my $argend = '--';		# option list terminator
>> /System/Library/Perl/5.30/Getopt/Long.pm:291:     my %opctl = ();		# table of option specs
>> /System/Library/Perl/5.30/Getopt/Long.pm:292:     my $pkg = $caller || (caller)[0];	# current context
>> /System/Library/Perl/5.30/Getopt/Long.pm:294:     my @ret = ();		# accum for non-options
>> /System/Library/Perl/5.30/Getopt/Long.pm:295:     my %linkage;		# linkage
>> /System/Library/Perl/5.30/Getopt/Long.pm:296:     my $userlinkage;		# user supplied HASH
>> /System/Library/Perl/5.30/Getopt/Long.pm:297:     my $opt;			# current option
>> /System/Library/Perl/5.30/Getopt/Long.pm:298:     my $prefix = $genprefix;	# current prefix
>> /System/Library/Perl/5.30/Getopt/Long.pm:300:     $error = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:302:     if ( $debug ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:332:     $userlinkage = undef;
>> /System/Library/Perl/5.30/Getopt/Long.pm:333:     if ( @optionlist && ref($optionlist[0]) and
>> /System/Library/Perl/5.30/Getopt/Long.pm:342:     if ( @optionlist && $optionlist[0] =~ /^\W+$/
>> /System/Library/Perl/5.30/Getopt/Long.pm:354:     %opctl = ();
>> /System/Library/Perl/5.30/Getopt/Long.pm:355:     while ( @optionlist ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:905: 	    $opctl->{"no$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:906: 	    $opctl->{"no-$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:907: 	    $opctl->{$_} = [@$entry];
>> /System/Library/Perl/5.30/Getopt/Long.pm:908: 	    $opctl->{$_}->[CTL_TYPE] = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:905: 	    $opctl->{"no$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:906: 	    $opctl->{"no-$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:907: 	    $opctl->{$_} = [@$entry];
>> /System/Library/Perl/5.30/Getopt/Long.pm:908: 	    $opctl->{$_}->[CTL_TYPE] = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:421: 		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:905: 	    $opctl->{"no$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:906: 	    $opctl->{"no-$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:907: 	    $opctl->{$_} = [@$entry];
>> /System/Library/Perl/5.30/Getopt/Long.pm:908: 	    $opctl->{$_}->[CTL_TYPE] = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:421: 		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:421: 		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:421: 		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:421: 		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:421: 		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:421: 		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:905: 	    $opctl->{"no$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:906: 	    $opctl->{"no-$_"} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:907: 	    $opctl->{$_} = [@$entry];
>> /System/Library/Perl/5.30/Getopt/Long.pm:908: 	    $opctl->{$_}->[CTL_TYPE] = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:424: 		$opctl{$name}[CTL_DEST] = CTL_DEST_HASH;
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:852: 	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:356: 	my $opt = shift (@optionlist);
>> /System/Library/Perl/5.30/Getopt/Long.pm:358: 	unless ( defined($opt) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:364: 	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
>> /System/Library/Perl/5.30/Getopt/Long.pm:366: 	if ( $opt eq '<>' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:386: 	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
>> /System/Library/Perl/5.30/Getopt/Long.pm:801:     my ($opt, $opctl) = @_;
>> /System/Library/Perl/5.30/Getopt/Long.pm:804:     if ( $opt !~ m;^
>> /System/Library/Perl/5.30/Getopt/Long.pm:827:     my ($names, $spec) = ($1, $2);
>> /System/Library/Perl/5.30/Getopt/Long.pm:828:     $spec = '' unless defined $spec;
>> /System/Library/Perl/5.30/Getopt/Long.pm:836:     my $orig;
>> /System/Library/Perl/5.30/Getopt/Long.pm:838:     my @names;
>> /System/Library/Perl/5.30/Getopt/Long.pm:839:     if ( defined $names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:840: 	@names =  split (/\|/, $names);
>> /System/Library/Perl/5.30/Getopt/Long.pm:841: 	$orig = $names[0];
>> /System/Library/Perl/5.30/Getopt/Long.pm:849:     my $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:850:     if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:866: 	my ($mand, $type, $dest) =
>> /System/Library/Perl/5.30/Getopt/Long.pm:868: 	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:870: 	my ($mi, $cm, $ma) = ($5, $6, $7);
>> /System/Library/Perl/5.30/Getopt/Long.pm:871: 	return (undef, "{0} is useless in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:874: 	$type = 'i' if $type eq 'n';
>> /System/Library/Perl/5.30/Getopt/Long.pm:875: 	$dest ||= '$';
>> /System/Library/Perl/5.30/Getopt/Long.pm:876: 	$dest = $dest eq '@' ? CTL_DEST_ARRAY
>> /System/Library/Perl/5.30/Getopt/Long.pm:879: 	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
>> /System/Library/Perl/5.30/Getopt/Long.pm:881: 	$mand = $mi ? '=' : ':';
>> /System/Library/Perl/5.30/Getopt/Long.pm:883: 	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
>> /System/Library/Perl/5.30/Getopt/Long.pm:884: 	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:886: 	return (undef, "Max less than min in option spec: \"$opt\"\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:890: 	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
>> /System/Library/Perl/5.30/Getopt/Long.pm:894:     my $dups = '';
>> /System/Library/Perl/5.30/Getopt/Long.pm:895:     foreach ( @names ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:897: 	$_ = lc ($_)
>> /System/Library/Perl/5.30/Getopt/Long.pm:900: 	if ( exists $opctl->{$_} ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:904: 	if ( $spec eq '!' ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:911: 	    $opctl->{$_} = $entry;
>> /System/Library/Perl/5.30/Getopt/Long.pm:915:     if ( $dups && $^W ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:920:     ($names[0], $orig);
>> /System/Library/Perl/5.30/Getopt/Long.pm:387: 	unless ( defined $name ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:398: 	if ( defined $userlinkage ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:415: 	if ( @optionlist > 0 && ref($optionlist[0]) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:416: 	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
>> /System/Library/Perl/5.30/Getopt/Long.pm:418: 	    my $rl = ref($linkage{$orig} = shift (@optionlist));
>> /System/Library/Perl/5.30/Getopt/Long.pm:420: 	    if ( $rl eq "ARRAY" ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:466: 	if ( $opctl{$name}[CTL_TYPE] eq 'I'
>> /System/Library/Perl/5.30/Getopt/Long.pm:475:     $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n"
>> /System/Library/Perl/5.30/Getopt/Long.pm:479:     die ($error) if $error;
>> /System/Library/Perl/5.30/Getopt/Long.pm:480:     $error = 0;
>> /System/Library/Perl/5.30/Getopt/Long.pm:483:     if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:490:     if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:499:     if ( $debug ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:509:     my $goon = 1;
>> /System/Library/Perl/5.30/Getopt/Long.pm:510:     while ( $goon && @$argv > 0 ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:772:     if ( @ret && $order == $PERMUTE ) {
>> /System/Library/Perl/5.30/Getopt/Long.pm:779:     return ($error == 0);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1226:   usage("") if $opt_usage;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1227:   list_options(\%options) if $opt_list_options;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1232:   if ($opt_verbose != 0){
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1237:   foreach(grep(/=i$/, keys %options))
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1239:     if (defined ${$options{$_}} &&
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1240:         do { no warnings "numeric"; int ${$options{$_}} < 0})
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1248:   $glob_mysql_test_dir= cwd();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Cwd.pm:201:     my @localize = grep exists $ENV{$_}, qw(PATH IFS CDPATH ENV BASH_ENV) if $^O ne "amigaos";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Cwd.pm:202:     local @ENV{@localize} if @localize;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Cwd.pm:204:     my $cwd = `$pwd_cmd`;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Cwd.pm:206:     local $/ = "\n";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Cwd.pm:208:     chomp($cwd) if defined $cwd;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Cwd.pm:209:     $cwd;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1249:   if ($glob_mysql_test_dir =~ / /)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1254:   if (IS_CYGWIN)
>> (eval 12)[lib/My/Platform.pm:38]:1: sub IS_CYGWIN { 0 }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1263:   $basedir= dirname($glob_mysql_test_dir);
>> /System/Library/Perl/5.30/File/Basename.pm:284:     my $path = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:286:     my($type) = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:288:     if( $type eq 'VMS' and $path =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:294:     my($basename, $dirname) = fileparse($path);
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:296:     if ($type eq 'VMS') { 
>> /System/Library/Perl/5.30/File/Basename.pm:306:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:306:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:306:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:306:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:319:         _strip_trailing_sep($dirname);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:320:         unless( length($basename) ) {
>> /System/Library/Perl/5.30/File/Basename.pm:326:     $dirname;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1270:   if ( ! $source_dist and ! -d "$basedir/bin" )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1276:   if ( ! $source_dist and ! -d "$basedir/bin" )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1283:   $bindir=$ENV{MTR_BINDIR}||$basedir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1285:   fix_vs_config_dir();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2630:   return $multiconfig="/$multiconfig" if $multiconfig;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2632:   my $modified = 1e30;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2633:   $multiconfig="";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2636:   for (<$bindir/sql/*/mysqld.exe>,
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2646:   mtr_report("VS config: $multiconfig");
>> lib/mtr_report.pm:659:   if (defined $verbose)
>> lib/mtr_report.pm:661:     my @s = split /\[ (\S+) \]/, _name() . "@_\n";
>> lib/mtr_report.pm:109:   return $name ? $name." " : undef;
>> lib/mtr_report.pm:662:     if (@s > 1) {
>> lib/mtr_report.pm:670:       print $s[0];
VS config: 
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2647:   $multiconfig="/$multiconfig" if $multiconfig;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1288:   if ($path_client_bindir)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1295:     $path_client_bindir= mtr_path_exists("$bindir/client_release",
>> lib/mtr_misc.pl:83:   foreach my $path ( @_ )
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1304:   $path_language=   mtr_path_exists("$bindir/share/mariadb",
>> lib/mtr_misc.pl:83:   foreach my $path ( @_ )
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1308:   my $path_share= $path_language;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1309:   $path_charsetsdir =   mtr_path_exists("$basedir/share/mariadb/charsets",
>> lib/mtr_misc.pl:83:   foreach my $path ( @_ )
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> lib/mtr_misc.pl:85:     return $path if -e $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1313:   if ( $opt_comment )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1321:   if ( @opt_experimentals )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1364:   foreach my $arg ( @ARGV )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1386:   if ( @opt_cases )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1395:   foreach my $arg ( @opt_extra_mysqld_opt )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1409:   foreach my $arg ( @opt_extra_mysqld_opt )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1419:   if (IS_WINDOWS and defined $opt_mem) {
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1424:   if ($opt_port_base ne "auto")
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1437:   if ( defined $opt_mem)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1466:                           ? "$ENV{MTR_BINDIR}/mysql-test" 
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1468:   $vardir_location= realpath $vardir_location;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:106: sub realpath($) { (IS_WINDOWS) ? $_[0] : Cwd::realpath($_[0]) }
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1469:   $default_vardir= "$vardir_location/var";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1471:   if ( ! $opt_vardir )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1473:     $opt_vardir= $default_vardir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1477:   unless ( $opt_vardir =~ m,^/, or
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1484:   set_vardir($opt_vardir);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1037:   ($opt_vardir)= @_;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1039:   $path_vardir_trace= $opt_vardir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1041:   $path_vardir_trace=~ s/^\w://;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1044:   $path_config_file= "$opt_vardir/my.cnf";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1046:   $path_testlog=         "$opt_vardir/log/mysqltest.log";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1047:   $path_current_testlog= "$opt_vardir/log/current_test";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1489:   if ( ! $opt_tmpdir )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1491:     $opt_tmpdir=       "$opt_vardir/tmp" unless $opt_tmpdir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1493:     if (check_socket_path_length("$opt_tmpdir/mysql_testsocket.sock"))
>> lib/My/Platform.pm:116:   my ($path)= @_;
>> lib/My/Platform.pm:118:   return 0 if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/My/Platform.pm:121:   return 0 if ($^O eq 'aix');
>> lib/My/Platform.pm:123:   return 0 if $^O eq 'gnukfreebsd' and length $path < 40;
>> lib/My/Platform.pm:125:   return 0 if $^O eq 'gnu';
>> lib/My/Platform.pm:127:   require IO::Socket::UNIX;
>> lib/My/Platform.pm:129:   my $truncated= undef;
>> lib/My/Platform.pm:132:   my $tmpdir = tempdir( CLEANUP => 0);
>> /System/Library/Perl/5.30/File/Temp.pm:1625:   if ( @_ && $_[0] eq 'File::Temp' ) {
>> /System/Library/Perl/5.30/File/Temp.pm:1633:   my %options = (
>> /System/Library/Perl/5.30/File/Temp.pm:1640:   my ($maybe_template, $args) = _parse_args(@_);
>> /System/Library/Perl/5.30/File/Temp.pm:1000:   my $leading_template = (scalar(@_) % 2 == 1 ? shift(@_) : '' );
>> /System/Library/Perl/5.30/File/Temp.pm:1001:   my %args = @_;
>> /System/Library/Perl/5.30/File/Temp.pm:1002:   %args = map { uc($_), $args{$_} } keys %args;
>> /System/Library/Perl/5.30/File/Temp.pm:1002:   %args = map { uc($_), $args{$_} } keys %args;
>> /System/Library/Perl/5.30/File/Temp.pm:1008:     $leading_template       ? $leading_template : ()
>> /System/Library/Perl/5.30/File/Temp.pm:1010:   delete $args{TEMPLATE};
>> /System/Library/Perl/5.30/File/Temp.pm:1012:   return( \@template, \%args );
>> /System/Library/Perl/5.30/File/Temp.pm:1641:   my $template = @$maybe_template ? $maybe_template->[0] : undef;
>> /System/Library/Perl/5.30/File/Temp.pm:1644:   %options = (%options, %$args);
>> /System/Library/Perl/5.30/File/Temp.pm:1649:   if (defined $template) {
>> /System/Library/Perl/5.30/File/Temp.pm:1679:     if ($options{"DIR"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:1685:       $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), TEMPXXX);
>> /System/Library/Perl/5.30/File/Temp.pm:1513:     return File::Spec->tmpdir unless $^O eq "MSWin32" && ${^TAINT};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:197:     my $cached = $_[0]->_cached_tmpdir('TMPDIR');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:159:     shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:160:     local $^W;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:161:     return if grep $ENV{$_} ne $tmpenv{$_}, @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:198:     return $cached if defined $cached;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:199:     $_[0]->_cache_tmpdir($_[0]->_tmpdir( $ENV{TMPDIR}, "/tmp" ), 'TMPDIR');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:165:     my $self = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:166:     my @dirlist = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:167:     my $taint = do { no strict 'refs'; ${"\cTAINT"} };
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:167:     my $taint = do { no strict 'refs'; ${"\cTAINT"} };
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:167:     my $taint = do { no strict 'refs'; ${"\cTAINT"} };
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:168:     if ($taint) { # Check for taint mode on perl >= 5.8.0
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:177:     foreach (@dirlist) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:178: 	next unless defined && -d && -w _;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:179: 	$tmpdir = $_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:180: 	last;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:182:     $tmpdir = $self->curdir unless defined $tmpdir;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:183:     $tmpdir = defined $tmpdir && $self->canonpath($tmpdir);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:184:     if ( !$self->file_name_is_absolute($tmpdir) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:193:     return $tmpdir;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:153:     @tmpenv{@_[2..$#_]} = @ENV{@_[2..$#_]};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:154:     return $tmpdir = $_[1];
>> /System/Library/Perl/5.30/File/Temp.pm:1692:   my $tempdir;
>> /System/Library/Perl/5.30/File/Temp.pm:1693:   my $suffixlen = 0;
>> /System/Library/Perl/5.30/File/Temp.pm:1694:   if ($^O eq 'VMS') {           # dir names can end in delimiters
>> /System/Library/Perl/5.30/File/Temp.pm:1698:   if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) {
>> /System/Library/Perl/5.30/File/Temp.pm:1703:   my $errstr;
>> /System/Library/Perl/5.30/File/Temp.pm:1704:   croak "Error in tempdir() using $template: $errstr"
>> /System/Library/Perl/5.30/File/Temp.pm:332:   croak 'Usage: ($fh, $name) = _gettemp($template, OPTIONS);'
>> /System/Library/Perl/5.30/File/Temp.pm:338:   my $tempErrStr;
>> /System/Library/Perl/5.30/File/Temp.pm:341:   my %options = (
>> /System/Library/Perl/5.30/File/Temp.pm:351:   my $template = shift;
>> /System/Library/Perl/5.30/File/Temp.pm:352:   if (ref($template)) {
>> /System/Library/Perl/5.30/File/Temp.pm:359:   if (scalar(@_) % 2 != 0) {
>> /System/Library/Perl/5.30/File/Temp.pm:366:   %options = (%options, @_)  if @_;
>> /System/Library/Perl/5.30/File/Temp.pm:369:   ${$options{ErrStr}} = undef;
>> /System/Library/Perl/5.30/File/Temp.pm:369:   ${$options{ErrStr}} = undef;
>> /System/Library/Perl/5.30/File/Temp.pm:372:   if ($options{"open"} && $options{"mkdir"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:379:   my $start = length($template) - 1 - $options{"suffixlen"};
>> /System/Library/Perl/5.30/File/Temp.pm:387:   if (substr($template, $start - MINX + 1, MINX) ne 'X' x MINX) {
>> /System/Library/Perl/5.30/File/Temp.pm:399:   my $path = _replace_XX($template, $options{"suffixlen"});
>> /System/Library/Perl/5.30/File/Temp.pm:617:   croak 'Usage: _replace_XX($template, $ignore)'
>> /System/Library/Perl/5.30/File/Temp.pm:620:   my ($path, $ignore) = @_;
>> /System/Library/Perl/5.30/File/Temp.pm:626:   my $end = ( $] >= 5.006 ? "\\z" : "\\Z" );
>> /System/Library/Perl/5.30/File/Temp.pm:628:   if ($ignore) {
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:633:   return $path;
>> /System/Library/Perl/5.30/File/Temp.pm:407:   my ($volume, $directories, $file);
>> /System/Library/Perl/5.30/File/Temp.pm:409:   if ($options{"mkdir"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:411:     ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:294:     my ($self,$path, $nofile) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:296:     my ($volume,$directory,$file) = ('','','');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:298:     if ( $nofile ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:299:         $directory = $path;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:307:     return ($volume,$directory,$file);
>> /System/Library/Perl/5.30/File/Temp.pm:415:     my @dirs = File::Spec->splitdir($directories);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> /System/Library/Perl/5.30/File/Temp.pm:419:     if ($#dirs == 0) {
>> /System/Library/Perl/5.30/File/Temp.pm:423:       if ($^O eq 'VMS') {     # need volume to avoid relative dir spec
>> /System/Library/Perl/5.30/File/Temp.pm:429:         $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
>> /System/Library/Perl/5.30/File/Temp.pm:432:         $parent = File::Spec->catpath($volume, $parent, '');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:350:     my ($self,$volume,$directory,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:352:     if ( $directory ne ''                && 
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:360:         $directory .= $file ;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:363:     return $directory ;
>> /System/Library/Perl/5.30/File/Temp.pm:456:   unless (-e $parent) {
>> /System/Library/Perl/5.30/File/Temp.pm:460:   unless (-d $parent) {
>> /System/Library/Perl/5.30/File/Temp.pm:469:   if (File::Temp->safe_level == MEDIUM) {
>> /System/Library/Perl/5.30/File/Temp.pm:2402:     my $self = shift;
>> /System/Library/Perl/5.30/File/Temp.pm:2403:     if (@_) {
>> /System/Library/Perl/5.30/File/Temp.pm:2418:     return $LEVEL;
>> /System/Library/Perl/5.30/File/Temp.pm:2402:     my $self = shift;
>> /System/Library/Perl/5.30/File/Temp.pm:2403:     if (@_) {
>> /System/Library/Perl/5.30/File/Temp.pm:2418:     return $LEVEL;
>> /System/Library/Perl/5.30/File/Temp.pm:485:   for (my $i = 0; $i < MAX_TRIES; $i++) {
>> /System/Library/Perl/5.30/File/Temp.pm:488:     if ($options{"open"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:537:       if (mkdir( $path, 0700)) {
>> /System/Library/Perl/5.30/File/Temp.pm:539:         chmod(0700, $path);
>> /System/Library/Perl/5.30/File/Temp.pm:541:         return undef, $path;
>> /System/Library/Perl/5.30/File/Temp.pm:1713:   if ( $options{'CLEANUP'} && -d $tempdir) {
>> /System/Library/Perl/5.30/File/Temp.pm:1718:   return $tempdir;
>> lib/My/Platform.pm:133:   my $len = length($path) - length($tmpdir) - 1;
>> lib/My/Platform.pm:134:   my $testfile = $tmpdir . "/" . "x" x ($len  > 0 ? $len : 1);
>> lib/My/Platform.pm:135:   my $sock;
>> lib/My/Platform.pm:136:   eval {
>> lib/My/Platform.pm:137:     $sock= new IO::Socket::UNIX
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:19:     my $class = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:20:     unshift(@_, "Peer") if @_ == 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:21:     return $class->SUPER::new(@_);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:41:     my($class,%arg) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:42:     my $sock = $class->SUPER::new();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:312:     my $class = ref($_[0]) || $_[0] || "IO::Handle";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:313:     if (@_ != 1) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:325:     my $io = gensym;
>> /System/Library/Perl/5.30/Symbol.pm:101:     my $name = "GEN" . $genseq++;
>> /System/Library/Perl/5.30/Symbol.pm:102:     my $ref = \*{$genpkg . $name};
>> /System/Library/Perl/5.30/Symbol.pm:102:     my $ref = \*{$genpkg . $name};
>> /System/Library/Perl/5.30/Symbol.pm:103:     delete $$genpkg{$name};
>> /System/Library/Perl/5.30/Symbol.pm:104:     $ref;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:326:     bless $io, $class;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:44:     $sock->autoflush(1);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:495:     my $old = SelectSaver->new(qualify($_[0], caller));
>> /System/Library/Perl/5.30/Symbol.pm:117:     my ($name) = @_;
>> /System/Library/Perl/5.30/Symbol.pm:118:     if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) {
>> /System/Library/Perl/5.30/Symbol.pm:131:     $name;
>> /System/Library/Perl/5.30/SelectSaver.pm:42:     @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
>> /System/Library/Perl/5.30/SelectSaver.pm:43:     my $fh = select;
>> /System/Library/Perl/5.30/SelectSaver.pm:44:     my $self = bless \$fh, $_[0];
>> /System/Library/Perl/5.30/SelectSaver.pm:45:     select qualify($_[1], caller) if @_ > 1;
>> /System/Library/Perl/5.30/Symbol.pm:117:     my ($name) = @_;
>> /System/Library/Perl/5.30/Symbol.pm:118:     if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) {
>> /System/Library/Perl/5.30/Symbol.pm:131:     $name;
>> /System/Library/Perl/5.30/SelectSaver.pm:46:     $self;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:496:     my $prev = $|;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:497:     $| = @_ > 1 ? $_[1] : 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:498:     $prev;
>> /System/Library/Perl/5.30/SelectSaver.pm:50:     my $self = $_[0];
>> /System/Library/Perl/5.30/SelectSaver.pm:51:     select $$self;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:46:     ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:46:     ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:48:     return scalar(%arg) ? $sock->configure(\%arg)
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:25:     my($sock,$arg) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:26:     my($bport,$cport);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:28:     my $type = $arg->{Type} || SOCK_STREAM;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:30:     $sock->socket(AF_UNIX, $type, 0) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:77:     @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:78:     my($sock,$domain,$type,$protocol) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:80:     socket($sock,$domain,$type,$protocol) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:83:     ${*$sock}{'io_socket_domain'} = $domain;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:83:     ${*$sock}{'io_socket_domain'} = $domain;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:84:     ${*$sock}{'io_socket_type'}   = $type;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:84:     ${*$sock}{'io_socket_type'}   = $type;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:85:     ${*$sock}{'io_socket_proto'}  = $protocol;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:85:     ${*$sock}{'io_socket_proto'}  = $protocol;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:87:     $sock;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:33:     if(exists $arg->{Local}) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:34: 	my $addr = sockaddr_un($arg->{Local});
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:867:     if (wantarray) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:871: 	croak "usage:   sun_sv = sockaddr_un(filename)" unless @_ == 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:872:         pack_sockaddr_un(@_);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:35: 	$sock->bind($addr) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:212:     @_ == 2 or croak 'usage: $sock->bind(NAME)';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:213:     my $sock = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:214:     my $addr = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:216:     return bind($sock, $addr) ? $sock
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:38:     if(exists $arg->{Listen} && $type != SOCK_DGRAM) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:39: 	$sock->listen($arg->{Listen} || 5) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:221:     @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:222:     my($sock,$queue) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:223:     $queue = 5
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:226:     return listen($sock, $queue) ? $sock
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:48:     $sock;
>> lib/My/Platform.pm:142:     $truncated= 1; # Be negatvie
>> lib/My/Platform.pm:144:     die "Could not create UNIX domain socket: $!"
>> lib/My/Platform.pm:147:     die "UNIX domain socket path was truncated"
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:52:     @_ == 1 or croak 'usage: $sock->hostpath()';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:53:     my $n = $_[0]->sockname || return undef;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:260:     @_ == 1 or croak 'usage: $sock->sockname()';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:261:     getsockname($_[0]);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:54:     (sockaddr_un($n))[0];
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:867:     if (wantarray) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:868: 	croak "usage:   (filename) = sockaddr_un(sun_sv)" unless @_ == 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:869:         unpack_sockaddr_un(@_);
>> lib/My/Platform.pm:150:     $truncated= 0; # Yes, it worked!
>> lib/My/Platform.pm:154:   die "Unexpected failure when checking socket path length: $@"
>> lib/My/Platform.pm:157:   $sock= undef;  # Close socket
>> lib/My/Platform.pm:158:   rmtree($tmpdir); # Remove the tempdir and any socket file created
>> /System/Library/Perl/5.30/File/Path.pm:271:     my $old_style = !( @_ and __is_arg( $_[-1] ) );
>> /System/Library/Perl/5.30/File/Path.pm:70:     my ($arg) = @_;
>> /System/Library/Perl/5.30/File/Path.pm:77:     return ( ref $arg eq 'HASH' );
>> /System/Library/Perl/5.30/File/Path.pm:273:     my ($arg, $data, $paths);
>> /System/Library/Perl/5.30/File/Path.pm:275:     if ($old_style) {
>> /System/Library/Perl/5.30/File/Path.pm:276:         my ( $verbose, $safe );
>> /System/Library/Perl/5.30/File/Path.pm:277:         ( $paths, $verbose, $safe ) = @_;
>> /System/Library/Perl/5.30/File/Path.pm:278:         $data->{verbose} = $verbose;
>> /System/Library/Perl/5.30/File/Path.pm:279:         $data->{safe} = defined $safe ? $safe : 0;
>> /System/Library/Perl/5.30/File/Path.pm:281:         if ( defined($paths) and length($paths) ) {
>> /System/Library/Perl/5.30/File/Path.pm:282:             $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' );
>> /System/Library/Perl/5.30/File/Path.pm:324:     $data->{prefix} = '';
>> /System/Library/Perl/5.30/File/Path.pm:325:     $data->{depth}  = 0;
>> /System/Library/Perl/5.30/File/Path.pm:327:     my @clean_path;
>> /System/Library/Perl/5.30/File/Path.pm:328:     $data->{cwd} = getcwd() or do {
>> /System/Library/Perl/5.30/File/Path.pm:332:     for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
>> /System/Library/Perl/5.30/File/Path.pm:332:     for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
>> /System/Library/Perl/5.30/File/Path.pm:332:     for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
>> /System/Library/Perl/5.30/File/Path.pm:334:     for my $p (@$paths) {
>> /System/Library/Perl/5.30/File/Path.pm:337:         my $ortho_root = _IS_MSWIN32 ? _slash_lc($p) : $p;
>> /System/Library/Perl/5.30/File/Path.pm:339:           _IS_MSWIN32 ? _slash_lc( $data->{cwd} ) : $data->{cwd};
>> /System/Library/Perl/5.30/File/Path.pm:340:         my $ortho_root_length = length($ortho_root);
>> /System/Library/Perl/5.30/File/Path.pm:341:         $ortho_root_length-- if _IS_VMS;   # don't compare '.' with ']'
>> /System/Library/Perl/5.30/File/Path.pm:342:         if ( $ortho_root_length && _is_subdir( $ortho_root, $ortho_cwd ) ) {
>> /System/Library/Perl/5.30/File/Path.pm:253:     my ( $dir, $test ) = @_;
>> /System/Library/Perl/5.30/File/Path.pm:255:     my ( $dv, $dd ) = File::Spec->splitpath( $dir,  1 );
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:294:     my ($self,$path, $nofile) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:296:     my ($volume,$directory,$file) = ('','','');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:298:     if ( $nofile ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:299:         $directory = $path;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:307:     return ($volume,$directory,$file);
>> /System/Library/Perl/5.30/File/Path.pm:256:     my ( $tv, $td ) = File::Spec->splitpath( $test, 1 );
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:294:     my ($self,$path, $nofile) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:296:     my ($volume,$directory,$file) = ('','','');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:298:     if ( $nofile ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:299:         $directory = $path;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:307:     return ($volume,$directory,$file);
>> /System/Library/Perl/5.30/File/Path.pm:259:     return 0 if $dv ne $tv;
>> /System/Library/Perl/5.30/File/Path.pm:261:     my @d = File::Spec->splitdir($dd);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> /System/Library/Perl/5.30/File/Path.pm:262:     my @t = File::Spec->splitdir($td);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> /System/Library/Perl/5.30/File/Path.pm:265:     return 0 if @t < @d;
>> /System/Library/Perl/5.30/File/Path.pm:348:         if (_IS_MACOS) {
>> /System/Library/Perl/5.30/File/Path.pm:356:             $p =~ s{/\z}{};
>> /System/Library/Perl/5.30/File/Path.pm:358:         push @clean_path, $p;
>> /System/Library/Perl/5.30/File/Path.pm:361:     @{$data}{qw(device inode)} = ( lstat $data->{cwd} )[ 0, 1 ] or do {
>> /System/Library/Perl/5.30/File/Path.pm:361:     @{$data}{qw(device inode)} = ( lstat $data->{cwd} )[ 0, 1 ] or do {
>> /System/Library/Perl/5.30/File/Path.pm:366:     return _rmtree( $data, \@clean_path );
>> /System/Library/Perl/5.30/File/Path.pm:370:     my $data   = shift;
>> /System/Library/Perl/5.30/File/Path.pm:371:     my $paths = shift;
>> /System/Library/Perl/5.30/File/Path.pm:373:     my $count  = 0;
>> /System/Library/Perl/5.30/File/Path.pm:374:     my $curdir = File::Spec->curdir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:114: sub curdir { '.' }
>> /System/Library/Perl/5.30/File/Path.pm:375:     my $updir  = File::Spec->updir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:208: sub updir { '..' }
>> /System/Library/Perl/5.30/File/Path.pm:377:     my ( @files, $root );
>> /System/Library/Perl/5.30/File/Path.pm:379:     foreach my $root (@$paths) {
>> /System/Library/Perl/5.30/File/Path.pm:389:           ? File::Spec->catfile( $data->{prefix}, $root )
>> /System/Library/Perl/5.30/File/Path.pm:392:         my ( $ldev, $lino, $perm ) = ( lstat $root )[ 0, 1, 2 ]
>> /System/Library/Perl/5.30/File/Path.pm:395:         if ( -d _ ) {
>> /System/Library/Perl/5.30/File/Path.pm:396:             $root = VMS::Filespec::vmspath( VMS::Filespec::pathify($root) )
>> /System/Library/Perl/5.30/File/Path.pm:399:             if ( !chdir($root) ) {
>> /System/Library/Perl/5.30/File/Path.pm:435:               or do {
>> /System/Library/Perl/5.30/File/Path.pm:440:             if (_NEED_STAT_CHECK) {
>> /System/Library/Perl/5.30/File/Path.pm:441:                 ( $ldev eq $cur_dev and $lino eq $cur_inode )
>> /System/Library/Perl/5.30/File/Path.pm:447:             $perm &= oct '7777';    # don't forget setuid, setgid, sticky bits
>> /System/Library/Perl/5.30/File/Path.pm:448:             my $nperm = $perm | oct '700';
>> /System/Library/Perl/5.30/File/Path.pm:455:             if (
>> /System/Library/Perl/5.30/File/Path.pm:467:             my $d;
>> /System/Library/Perl/5.30/File/Path.pm:468:             $d = gensym() if $] < 5.006;
>> /System/Library/Perl/5.30/File/Path.pm:469:             if ( !opendir $d, $curdir ) {
>> /System/Library/Perl/5.30/File/Path.pm:474:                 if ( !defined ${^TAINT} or ${^TAINT} ) {
>> /System/Library/Perl/5.30/File/Path.pm:479:                     @files = readdir $d;
>> /System/Library/Perl/5.30/File/Path.pm:481:                 closedir $d;
>> /System/Library/Perl/5.30/File/Path.pm:484:             if (_IS_VMS) {
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:494:             if (@files) {
>> /System/Library/Perl/5.30/File/Path.pm:497:                 my $narg = {%$data};
>> /System/Library/Perl/5.30/File/Path.pm:499:                   ( $cur_dev, $cur_inode, $updir, $canon, $data->{depth} + 1 );
>> /System/Library/Perl/5.30/File/Path.pm:498:                 @{$narg}{qw(device inode cwd prefix depth)} =
>> /System/Library/Perl/5.30/File/Path.pm:500:                 $count += _rmtree( $narg, \@files );
>> /System/Library/Perl/5.30/File/Path.pm:370:     my $data   = shift;
>> /System/Library/Perl/5.30/File/Path.pm:371:     my $paths = shift;
>> /System/Library/Perl/5.30/File/Path.pm:373:     my $count  = 0;
>> /System/Library/Perl/5.30/File/Path.pm:374:     my $curdir = File::Spec->curdir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:114: sub curdir { '.' }
>> /System/Library/Perl/5.30/File/Path.pm:375:     my $updir  = File::Spec->updir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:208: sub updir { '..' }
>> /System/Library/Perl/5.30/File/Path.pm:377:     my ( @files, $root );
>> /System/Library/Perl/5.30/File/Path.pm:379:     foreach my $root (@$paths) {
>> /System/Library/Perl/5.30/File/Path.pm:389:           ? File::Spec->catfile( $data->{prefix}, $root )
>> /System/Library/Perl/5.30/File/Path.pm:392:         my ( $ldev, $lino, $perm ) = ( lstat $root )[ 0, 1, 2 ]
>> /System/Library/Perl/5.30/File/Path.pm:395:         if ( -d _ ) {
>> /System/Library/Perl/5.30/File/Path.pm:569:             $root = VMS::Filespec::vmsify("./$root")
>> /System/Library/Perl/5.30/File/Path.pm:574:             if (
>> /System/Library/Perl/5.30/File/Path.pm:587:             my $nperm = $perm & oct '7777' | oct '600';
>> /System/Library/Perl/5.30/File/Path.pm:588:             if (    _FORCE_WRITABLE
>> /System/Library/Perl/5.30/File/Path.pm:594:             print "unlink $canon\n" if $data->{verbose};
>> /System/Library/Perl/5.30/File/Path.pm:597:             for ( ; ; ) {
>> /System/Library/Perl/5.30/File/Path.pm:598:                 if ( unlink $root ) {
>> /System/Library/Perl/5.30/File/Path.pm:599:                     push @{ ${ $data->{result} } }, $root if $data->{result};
>> /System/Library/Perl/5.30/File/Path.pm:609:                 ++$count;
>> /System/Library/Perl/5.30/File/Path.pm:610:                 last unless _IS_VMS && lstat $root;
>> /System/Library/Perl/5.30/File/Path.pm:614:     return $count;
>> /System/Library/Perl/5.30/File/Path.pm:506:             if ( $nperm != $perm and not chmod( $perm, $curdir ) ) {
>> /System/Library/Perl/5.30/File/Path.pm:512:               or
>> /System/Library/Perl/5.30/File/Path.pm:517:             ( $cur_dev, $cur_inode ) = ( stat $curdir )[ 0, 1 ]
>> /System/Library/Perl/5.30/File/Path.pm:522:             if (_NEED_STAT_CHECK) {
>> /System/Library/Perl/5.30/File/Path.pm:523:                 ( $data->{device} eq $cur_dev and $data->{inode} eq $cur_inode )
>> /System/Library/Perl/5.30/File/Path.pm:531:             if ( $data->{depth} or !$data->{keep_root} ) {
>> /System/Library/Perl/5.30/File/Path.pm:532:                 if ( $data->{safe}
>> /System/Library/Perl/5.30/File/Path.pm:540:                 if ( _FORCE_WRITABLE and !chmod $perm | oct '700', $root ) {
>> /System/Library/Perl/5.30/File/Path.pm:543:                 print "rmdir $root\n" if $data->{verbose};
>> /System/Library/Perl/5.30/File/Path.pm:544:                 if ( rmdir $root ) {
>> /System/Library/Perl/5.30/File/Path.pm:545:                     push @{ ${ $data->{result} } }, $root if $data->{result};
>> /System/Library/Perl/5.30/File/Path.pm:546:                     ++$count;
>> /System/Library/Perl/5.30/File/Path.pm:614:     return $count;
>> lib/My/Platform.pm:159:   return $truncated;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1506:   $opt_tmpdir =~ s,/+$,,;       # Remove ending slash if any
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1511:   if ($opt_fast){
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1518:   if ($opt_parallel ne "auto" && $opt_parallel < 1)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1526:   if ( $opt_record and ! @opt_cases )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1531:   if ( $opt_record ) {
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1539:   if ( $opt_embedded_server )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1555:    if ( $opt_big_test )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1559:   $ENV{'STAGING_RUN'}= $opt_staging_run;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1564:   if ( ($opt_gcov or $opt_gprof) and ! $source_dist )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1569:   $ENV{ASAN_OPTIONS}= "abort_on_error=1:" . ($ENV{ASAN_OPTIONS} || '');
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1572:     if -f "$glob_mysql_test_dir/asan.supp" and not IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1578:   $ENV{LSAN_OPTIONS}= "suppressions=${glob_mysql_test_dir}/lsan.supp:print_suppressions=0"
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1581:   mtr_verbose("ASAN_OPTIONS=$ENV{ASAN_OPTIONS}");
>> lib/mtr_report.pm:711:   if ( $verbose )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1586:   if ($opt_start or $opt_start_dirty or $opt_start_exit) {
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1590:   if ($opt_debug)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1602:   if ($opt_user_args) {
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1613:   if ($opt_wait_all && ! $start_only)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1622:   if ($opt_stress)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1637:   mtr_error("Invalid value '$opt_testcase_timeout' supplied ".
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1640:   mtr_error("Invalid value '$opt_suite_timeout' supplied ".
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1644:   if ($opt_debug_common)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1650:   My::CoreDump::pre_setup();
>> lib/My/CoreDump.pm:138:     if not defined $config{print_core};
>> lib/My/CoreDump.pm:124:   my ($default, $env)= @_;
>> lib/My/CoreDump.pm:125:   if (exists $ENV{$env}) {
>> lib/My/CoreDump.pm:133:   return $default;
>> lib/My/CoreDump.pm:140:     if not defined $config{print_method};
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/My/CoreDump.pm:144:   if ($config{print_core} =~ m/^custom:(.+)$/) {
>> lib/My/CoreDump.pm:151:     if not exists $print_formats{$config{print_core}};
>> lib/My/CoreDump.pm:153:     if not exists $print_methods{$config{print_method}};
>> lib/My/CoreDump.pm:155:   mtr_debug(Data::Dumper->Dump(
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:232:         || (! $IS_ASCII && $] lt 5.021_010);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:72:   my($c, $v, $n) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:74:   Carp::croak("Usage:  PACKAGE->new(ARRAYREF, [ARRAYREF])")
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:76:   $n = [] unless (defined($n) && (ref($n) eq 'ARRAY'));
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:78:   my($s) = {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:108:   if ($Indent > 0) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:109:     $s->{xpad} = "  ";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:110:     $s->{sep} = "\n";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Data/Dumper.pm:112:   return bless($s, $c);
>> lib/mtr_report.pm:702:   if ( $verbose > 2 )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:367:   My::SafeProcess::find_bin();
>> lib/My/SafeProcess.pm:105:   if (IS_WIN32PERL or IS_CYGWIN)
>> (eval 13)[lib/My/Platform.pm:44]:1: sub IS_WIN32PERL { 0 }
>> (eval 12)[lib/My/Platform.pm:38]:1: sub IS_CYGWIN { 0 }
>> lib/My/SafeProcess.pm:118:     my $exe= my_find_bin($bindir, ["lib/My/SafeProcess", "My/SafeProcess"],
>> lib/My/Find.pm:60:   my ($base, $paths, $names, $required)= @_;
>> lib/My/Find.pm:61:   croak "usage: my_find_bin(<base>, <paths>, <names>, [<required>])"
>> lib/My/Find.pm:67:   foreach my $path (my_build_path_list($base, $paths, $names, $bin_extension)) {
>> lib/My/Find.pm:147:   my ($base, $paths, $names, $extension)= @_;
>> lib/My/Find.pm:151:   my (@names, @paths);
>> lib/My/Find.pm:152:   push(@names, ref $names eq "ARRAY" ? @$names : $names);
>> lib/My/Find.pm:153:   push(@paths, ref $paths eq "ARRAY" ? @$paths : $paths);
>> lib/My/Find.pm:161:   my @extra_dirs;
>> lib/My/Find.pm:162:   my $build_dir= $::multiconfig || $ENV{MTR_VS_CONFIG} || $ENV{MTR_BUILD_DIR};
>> lib/My/Find.pm:163:   push(@extra_dirs, $build_dir) if defined $build_dir;
>> lib/My/Find.pm:165:   if (defined $extension){
>> lib/My/Find.pm:176:   push(@extra_dirs,
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:215:   return @paths;
>> lib/My/Find.pm:68:     return $path if ( -x $path or (IS_WINDOWS and -f $path) );
>> lib/My/SafeProcess.pm:120:     push(@safe_process_cmd, $exe);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:369:   print "vardir: $opt_vardir\n";
vardir: /Users/dimitrisstaratzis/Documents/server/builddir/mysql-test/var
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:370:   initialize_servers();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2929:   if ( using_extern() )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:266: sub using_extern { return (keys %opts_extern > 0);};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2946:     kill_leftovers("$opt_vardir/run");
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2862:   my $rundir= shift;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2863:   return unless ( -d $rundir );
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2865:   mtr_report("Checking leftover processes...");
>> lib/mtr_report.pm:659:   if (defined $verbose)
>> lib/mtr_report.pm:661:     my @s = split /\[ (\S+) \]/, _name() . "@_\n";
>> lib/mtr_report.pm:109:   return $name ? $name." " : undef;
>> lib/mtr_report.pm:662:     if (@s > 1) {
>> lib/mtr_report.pm:670:       print $s[0];
Checking leftover processes...
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2868:   opendir(RUNDIR, $rundir)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2870:   while ( my $elem= readdir(RUNDIR) )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2873:     if ( $elem =~ /.*[.]pid$/ )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2901:       mtr_warning("Found non pid file '$elem' in '$rundir'")
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2873:     if ( $elem =~ /.*[.]pid$/ )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2901:       mtr_warning("Found non pid file '$elem' in '$rundir'")
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2905:   closedir(RUNDIR);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2948:     if ( ! $opt_start_dirty )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2950:       remove_stale_vardir();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2310:   mtr_report("Removing old var directory...");
>> lib/mtr_report.pm:659:   if (defined $verbose)
>> lib/mtr_report.pm:661:     my @s = split /\[ (\S+) \]/, _name() . "@_\n";
>> lib/mtr_report.pm:109:   return $name ? $name." " : undef;
>> lib/mtr_report.pm:662:     if (@s > 1) {
>> lib/mtr_report.pm:670:       print $s[0];
Removing old var directory...
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2313:   mtr_error("No, don't remove the vardir when running with --extern")
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:266: sub using_extern { return (keys %opts_extern > 0);};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2316:   mtr_verbose("opt_vardir: $opt_vardir");
>> lib/mtr_report.pm:711:   if ( $verbose )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2317:   if ( $opt_vardir eq $default_vardir )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2322:     if ( -l $opt_vardir)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2355:       mtr_verbose("Removing $opt_vardir/");
>> lib/mtr_report.pm:711:   if ( $verbose )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2356:       rmtree("$opt_vardir/");
>> lib/My/File/Path.pm:47:   my ($dir)= @_;
>> lib/My/File/Path.pm:74: 	}, $dir );
>> /System/Library/Perl/5.30/File/Find.pm:759:     my $wanted = shift;
>> /System/Library/Perl/5.30/File/Find.pm:760:     _find_opt(wrap_wanted($wanted), @_);
>> /System/Library/Perl/5.30/File/Find.pm:714:     my $wanted = shift;
>> /System/Library/Perl/5.30/File/Find.pm:715:     if ( ref($wanted) eq 'HASH' ) {
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:731:         my @invalid_options = ();
>> /System/Library/Perl/5.30/File/Find.pm:732:         for my $v (keys %{$wanted}) {
>> /System/Library/Perl/5.30/File/Find.pm:732:         for my $v (keys %{$wanted}) {
>> /System/Library/Perl/5.30/File/Find.pm:733:             push @invalid_options, $v unless exists $valid_options{$v};
>> /System/Library/Perl/5.30/File/Find.pm:733:             push @invalid_options, $v unless exists $valid_options{$v};
>> /System/Library/Perl/5.30/File/Find.pm:733:             push @invalid_options, $v unless exists $valid_options{$v};
>> /System/Library/Perl/5.30/File/Find.pm:735:         warn "Invalid option(s): @invalid_options" if @invalid_options;
>> /System/Library/Perl/5.30/File/Find.pm:737:         unless( exists $wanted->{wanted} and ref( $wanted->{wanted} ) eq 'CODE' ) {
>> /System/Library/Perl/5.30/File/Find.pm:740:         if ( $wanted->{follow} || $wanted->{follow_fast}) {
>> /System/Library/Perl/5.30/File/Find.pm:743:         if ( $wanted->{untaint} ) {
>> /System/Library/Perl/5.30/File/Find.pm:748:         return $wanted;
>> /System/Library/Perl/5.30/File/Find.pm:128:     my $wanted = shift;
>> /System/Library/Perl/5.30/File/Find.pm:129:     return unless @_;
>> /System/Library/Perl/5.30/File/Find.pm:130:     die "invalid top directory" unless defined $_[0];
>> /System/Library/Perl/5.30/File/Find.pm:135:     local %SLnkSeen;
>> /System/Library/Perl/5.30/File/Find.pm:136:     local ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
>> /System/Library/Perl/5.30/File/Find.pm:139:     local($dir, $name, $fullname, $prune);
>> /System/Library/Perl/5.30/File/Find.pm:140:     local *_ = \my $a;
>> /System/Library/Perl/5.30/File/Find.pm:142:     my $cwd            = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd();
>> /System/Library/Perl/5.30/File/Find.pm:143:     if ($Is_VMS) {
>> /System/Library/Perl/5.30/File/Find.pm:157:     my $cwd_untainted  = $cwd;
>> /System/Library/Perl/5.30/File/Find.pm:158:     my $check_t_cwd    = 1;
>> /System/Library/Perl/5.30/File/Find.pm:159:     $wanted_callback   = $wanted->{wanted};
>> /System/Library/Perl/5.30/File/Find.pm:160:     $bydepth           = $wanted->{bydepth};
>> /System/Library/Perl/5.30/File/Find.pm:161:     $pre_process       = $wanted->{preprocess};
>> /System/Library/Perl/5.30/File/Find.pm:162:     $post_process      = $wanted->{postprocess};
>> /System/Library/Perl/5.30/File/Find.pm:163:     $no_chdir          = $wanted->{no_chdir};
>> /System/Library/Perl/5.30/File/Find.pm:164:     $full_check        = $Is_Win32 ? 0 : $wanted->{follow};
>> /System/Library/Perl/5.30/File/Find.pm:166:                              $full_check || $wanted->{follow_fast};
>> /System/Library/Perl/5.30/File/Find.pm:167:     $follow_skip       = $wanted->{follow_skip};
>> /System/Library/Perl/5.30/File/Find.pm:168:     $untaint           = $wanted->{untaint};
>> /System/Library/Perl/5.30/File/Find.pm:169:     $untaint_pat       = $wanted->{untaint_pattern};
>> /System/Library/Perl/5.30/File/Find.pm:170:     $untaint_skip      = $wanted->{untaint_skip};
>> /System/Library/Perl/5.30/File/Find.pm:171:     $dangling_symlinks = $wanted->{dangling_symlinks};
>> /System/Library/Perl/5.30/File/Find.pm:174:     local our ($topdir, $topdev, $topino, $topmode, $topnlink);
>> /System/Library/Perl/5.30/File/Find.pm:177:     $avoid_nlink      = $follow || $File::Find::dont_use_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:179:     my ($abs_dir, $Is_Dir);
>> /System/Library/Perl/5.30/File/Find.pm:182:     foreach my $TOP (@_) {
>> /System/Library/Perl/5.30/File/Find.pm:183: 	my $top_item = $TOP;
>> /System/Library/Perl/5.30/File/Find.pm:184: 	$top_item = VMS::Filespec::unixify($top_item) if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:186: 	($topdev,$topino,$topmode,$topnlink) = $follow ? stat $top_item : lstat $top_item;
>> /System/Library/Perl/5.30/File/Find.pm:188: 	if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:193: 	    $top_item =~ s|/\z|| unless $top_item eq '/';
>> /System/Library/Perl/5.30/File/Find.pm:196: 	$Is_Dir= 0;
>> /System/Library/Perl/5.30/File/Find.pm:198: 	if ($follow) {
>> /System/Library/Perl/5.30/File/Find.pm:229: 	    $topdir = $top_item;
>> /System/Library/Perl/5.30/File/Find.pm:230: 	    unless (defined $topnlink) {
>> /System/Library/Perl/5.30/File/Find.pm:234: 	    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:235: 		$top_item =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:236: 		_find_dir($wanted, $top_item, $topnlink);
>> /System/Library/Perl/5.30/File/Find.pm:297:     my ($wanted, $p_dir, $nlink) = @_;
>> /System/Library/Perl/5.30/File/Find.pm:298:     my ($CdLvl,$Level) = (0,0);
>> /System/Library/Perl/5.30/File/Find.pm:299:     my @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:300:     my @filenames;
>> /System/Library/Perl/5.30/File/Find.pm:301:     my ($subcount,$sub_nlink);
>> /System/Library/Perl/5.30/File/Find.pm:302:     my $SE= [];
>> /System/Library/Perl/5.30/File/Find.pm:303:     my $dir_name= $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:304:     my $dir_pref;
>> /System/Library/Perl/5.30/File/Find.pm:305:     my $dir_rel = $File::Find::current_dir;
>> /System/Library/Perl/5.30/File/Find.pm:306:     my $tainted = 0;
>> /System/Library/Perl/5.30/File/Find.pm:307:     my $no_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:309:     if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:324: 	$dir_pref= ( $p_dir eq '/' ? '/' : "$p_dir/" );
>> /System/Library/Perl/5.30/File/Find.pm:327:     local ($dir, $name, $prune, *DIR);
>> /System/Library/Perl/5.30/File/Find.pm:329:     unless ( $no_chdir || ($p_dir eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:349:     push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:351:     while (defined $SE) {
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:438: 			--$subcount;
>> /System/Library/Perl/5.30/File/Find.pm:439: 			$FN =~ s/\.dir\z//i if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:442: 			splice @Stack, $stack_top, 0,
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:431: 		if ($subcount > 0 || $no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:435: 		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
>> /System/Library/Perl/5.30/File/Find.pm:437: 		    if (-d _) {
>> /System/Library/Perl/5.30/File/Find.pm:446: 			$name = $dir_pref . $FN; # $File::Find::name
>> /System/Library/Perl/5.30/File/Find.pm:447: 			$_= ($no_chdir ? $name : $FN); # $_
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:448: 			{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:64: 	     return if (unlink($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:514: 		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
>> /System/Library/Perl/5.30/File/Find.pm:515: 		last;
>> /System/Library/Perl/5.30/File/Find.pm:352: 	unless ($bydepth) {
>> /System/Library/Perl/5.30/File/Find.pm:363: 	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:383: 	$dir= $dir_name; # $File::Find::dir
>> /System/Library/Perl/5.30/File/Find.pm:386: 	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
>> /System/Library/Perl/5.30/File/Find.pm:390: 	@filenames = readdir DIR;
>> /System/Library/Perl/5.30/File/Find.pm:391: 	closedir(DIR);
>> /System/Library/Perl/5.30/File/Find.pm:392: 	@filenames = $pre_process->(@filenames) if $pre_process;
>> /System/Library/Perl/5.30/File/Find.pm:393: 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
>> /System/Library/Perl/5.30/File/Find.pm:397:         $no_nlink = $avoid_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:399:         $no_nlink = 1 if ($nlink < 2);
>> /System/Library/Perl/5.30/File/Find.pm:401: 	if ($nlink == 2 && !$no_nlink) {
>> /System/Library/Perl/5.30/File/Find.pm:422: 	    $subcount = $nlink - 2;
>> /System/Library/Perl/5.30/File/Find.pm:427:             my $stack_top = @Stack;
>> /System/Library/Perl/5.30/File/Find.pm:429: 	    for my $FN (@filenames) {
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:430: 		next if $FN =~ $File::Find::skip_pattern;
>> /System/Library/Perl/5.30/File/Find.pm:460: 	while ( defined ($SE = pop @Stack) ) {
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:461: 	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
>> /System/Library/Perl/5.30/File/Find.pm:462: 	    if ($CdLvl > $Level && !$no_chdir) {
>> /System/Library/Perl/5.30/File/Find.pm:475: 	    if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:492: 		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
>> /System/Library/Perl/5.30/File/Find.pm:493: 		$dir_pref = "$dir_name/";
>> /System/Library/Perl/5.30/File/Find.pm:496: 	    if ( $nlink == -2 ) {
>> /System/Library/Perl/5.30/File/Find.pm:502: 		$name = $dir_name;
>> /System/Library/Perl/5.30/File/Find.pm:503: 		if ( substr($name,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:504: 		    substr($name, length($name) == 2 ? -1 : -2) = '';
>> /System/Library/Perl/5.30/File/Find.pm:506: 		$dir = $p_dir;
>> /System/Library/Perl/5.30/File/Find.pm:507: 		$_ = ($no_chdir ? $dir_name : $dir_rel );
>> /System/Library/Perl/5.30/File/Find.pm:508: 		if ( substr($_,-2) eq '/.' ) {
>> /System/Library/Perl/5.30/File/Find.pm:509: 		    substr($_, length($_) == 2 ? -1 : -2) = '';
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> /System/Library/Perl/5.30/File/Find.pm:511: 		{ $wanted_callback->() }; # protect against wild "next"
>> lib/My/File/Path.pm:52: 	   my $name= $_;
>> lib/My/File/Path.pm:53: 	   if (!-l $name && -d _){
>> lib/My/File/Path.pm:54: 	     return if (rmdir($name) == 1);
>> /System/Library/Perl/5.30/File/Find.pm:237: 		$Is_Dir= 1;
>> /System/Library/Perl/5.30/File/Find.pm:244: 	unless ($Is_Dir) {
>> /System/Library/Perl/5.30/File/Find.pm:274: 	unless ( $no_chdir ) {
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2359:     if ( $opt_mem )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2385:   mtr_verbose("Removing $opt_tmpdir/");
>> lib/mtr_report.pm:711:   if ( $verbose )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2386:   rmtree("$opt_tmpdir/");
>> lib/My/File/Path.pm:47:   my ($dir)= @_;
>> lib/My/File/Path.pm:74: 	}, $dir );
>> /System/Library/Perl/5.30/File/Find.pm:759:     my $wanted = shift;
>> /System/Library/Perl/5.30/File/Find.pm:760:     _find_opt(wrap_wanted($wanted), @_);
>> /System/Library/Perl/5.30/File/Find.pm:714:     my $wanted = shift;
>> /System/Library/Perl/5.30/File/Find.pm:715:     if ( ref($wanted) eq 'HASH' ) {
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:717:         my %valid_options = map {$_ => 1} qw(
>> /System/Library/Perl/5.30/File/Find.pm:731:         my @invalid_options = ();
>> /System/Library/Perl/5.30/File/Find.pm:732:         for my $v (keys %{$wanted}) {
>> /System/Library/Perl/5.30/File/Find.pm:732:         for my $v (keys %{$wanted}) {
>> /System/Library/Perl/5.30/File/Find.pm:733:             push @invalid_options, $v unless exists $valid_options{$v};
>> /System/Library/Perl/5.30/File/Find.pm:733:             push @invalid_options, $v unless exists $valid_options{$v};
>> /System/Library/Perl/5.30/File/Find.pm:733:             push @invalid_options, $v unless exists $valid_options{$v};
>> /System/Library/Perl/5.30/File/Find.pm:735:         warn "Invalid option(s): @invalid_options" if @invalid_options;
>> /System/Library/Perl/5.30/File/Find.pm:737:         unless( exists $wanted->{wanted} and ref( $wanted->{wanted} ) eq 'CODE' ) {
>> /System/Library/Perl/5.30/File/Find.pm:740:         if ( $wanted->{follow} || $wanted->{follow_fast}) {
>> /System/Library/Perl/5.30/File/Find.pm:743:         if ( $wanted->{untaint} ) {
>> /System/Library/Perl/5.30/File/Find.pm:748:         return $wanted;
>> /System/Library/Perl/5.30/File/Find.pm:128:     my $wanted = shift;
>> /System/Library/Perl/5.30/File/Find.pm:129:     return unless @_;
>> /System/Library/Perl/5.30/File/Find.pm:130:     die "invalid top directory" unless defined $_[0];
>> /System/Library/Perl/5.30/File/Find.pm:135:     local %SLnkSeen;
>> /System/Library/Perl/5.30/File/Find.pm:136:     local ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
>> /System/Library/Perl/5.30/File/Find.pm:139:     local($dir, $name, $fullname, $prune);
>> /System/Library/Perl/5.30/File/Find.pm:140:     local *_ = \my $a;
>> /System/Library/Perl/5.30/File/Find.pm:142:     my $cwd            = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd();
>> /System/Library/Perl/5.30/File/Find.pm:143:     if ($Is_VMS) {
>> /System/Library/Perl/5.30/File/Find.pm:157:     my $cwd_untainted  = $cwd;
>> /System/Library/Perl/5.30/File/Find.pm:158:     my $check_t_cwd    = 1;
>> /System/Library/Perl/5.30/File/Find.pm:159:     $wanted_callback   = $wanted->{wanted};
>> /System/Library/Perl/5.30/File/Find.pm:160:     $bydepth           = $wanted->{bydepth};
>> /System/Library/Perl/5.30/File/Find.pm:161:     $pre_process       = $wanted->{preprocess};
>> /System/Library/Perl/5.30/File/Find.pm:162:     $post_process      = $wanted->{postprocess};
>> /System/Library/Perl/5.30/File/Find.pm:163:     $no_chdir          = $wanted->{no_chdir};
>> /System/Library/Perl/5.30/File/Find.pm:164:     $full_check        = $Is_Win32 ? 0 : $wanted->{follow};
>> /System/Library/Perl/5.30/File/Find.pm:166:                              $full_check || $wanted->{follow_fast};
>> /System/Library/Perl/5.30/File/Find.pm:167:     $follow_skip       = $wanted->{follow_skip};
>> /System/Library/Perl/5.30/File/Find.pm:168:     $untaint           = $wanted->{untaint};
>> /System/Library/Perl/5.30/File/Find.pm:169:     $untaint_pat       = $wanted->{untaint_pattern};
>> /System/Library/Perl/5.30/File/Find.pm:170:     $untaint_skip      = $wanted->{untaint_skip};
>> /System/Library/Perl/5.30/File/Find.pm:171:     $dangling_symlinks = $wanted->{dangling_symlinks};
>> /System/Library/Perl/5.30/File/Find.pm:174:     local our ($topdir, $topdev, $topino, $topmode, $topnlink);
>> /System/Library/Perl/5.30/File/Find.pm:177:     $avoid_nlink      = $follow || $File::Find::dont_use_nlink;
>> /System/Library/Perl/5.30/File/Find.pm:179:     my ($abs_dir, $Is_Dir);
>> /System/Library/Perl/5.30/File/Find.pm:182:     foreach my $TOP (@_) {
>> /System/Library/Perl/5.30/File/Find.pm:183: 	my $top_item = $TOP;
>> /System/Library/Perl/5.30/File/Find.pm:184: 	$top_item = VMS::Filespec::unixify($top_item) if $Is_VMS;
>> /System/Library/Perl/5.30/File/Find.pm:186: 	($topdev,$topino,$topmode,$topnlink) = $follow ? stat $top_item : lstat $top_item;
>> /System/Library/Perl/5.30/File/Find.pm:188: 	if ($Is_Win32) {
>> /System/Library/Perl/5.30/File/Find.pm:193: 	    $top_item =~ s|/\z|| unless $top_item eq '/';
>> /System/Library/Perl/5.30/File/Find.pm:196: 	$Is_Dir= 0;
>> /System/Library/Perl/5.30/File/Find.pm:198: 	if ($follow) {
>> /System/Library/Perl/5.30/File/Find.pm:229: 	    $topdir = $top_item;
>> /System/Library/Perl/5.30/File/Find.pm:230: 	    unless (defined $topnlink) {
>> /System/Library/Perl/5.30/File/Find.pm:231: 		warnings::warnif "Can't stat $top_item: $!\n";
>> /System/Library/Perl/5.30/warnings.pm:529:     return __chk(NORMAL | FATAL | MESSAGE, @_);
>> /System/Library/Perl/5.30/warnings.pm:379:     my $category ;
>> /System/Library/Perl/5.30/warnings.pm:380:     my $offset ;
>> /System/Library/Perl/5.30/warnings.pm:381:     my $isobj = 0 ;
>> /System/Library/Perl/5.30/warnings.pm:382:     my $wanted = shift;
>> /System/Library/Perl/5.30/warnings.pm:383:     my $has_message = $wanted & MESSAGE;
>> /System/Library/Perl/5.30/warnings.pm:384:     my $has_level   = $wanted & LEVEL  ;
>> /System/Library/Perl/5.30/warnings.pm:386:     if ($has_level) {
>> /System/Library/Perl/5.30/warnings.pm:401:     my $message = pop if $has_message;
>> /System/Library/Perl/5.30/warnings.pm:403:     if (@_) {
>> /System/Library/Perl/5.30/warnings.pm:417: 	$category = (caller(1))[0] ;
>> /System/Library/Perl/5.30/warnings.pm:418: 	$offset = $Offsets{$category};
>> /System/Library/Perl/5.30/warnings.pm:419: 	Croaker("package '$category' not registered for warnings")
>> /System/Library/Perl/5.30/warnings.pm:423:     my $i;
>> /System/Library/Perl/5.30/warnings.pm:425:     if ($isobj) {
>> /System/Library/Perl/5.30/warnings.pm:437: 	$i = _error_loc(); # see where Carp will allocate the error
>> /System/Library/Perl/5.30/warnings.pm:508:     require Carp;
>> /System/Library/Perl/5.30/warnings.pm:509:     goto &Carp::short_error_loc; # don't introduce another stack frame
>> /System/Library/Perl/5.30/Carp.pm:647:     my $cache = {};
>> /System/Library/Perl/5.30/Carp.pm:648:     my $i     = 1;
>> /System/Library/Perl/5.30/Carp.pm:649:     my $lvl   = $CarpLevel;
>> /System/Library/Perl/5.30/Carp.pm:651:         my $cgc = _cgc();
>> /System/Library/Perl/5.30/Carp.pm:651:         my $cgc = _cgc();
>> /System/Library/Perl/5.30/Carp.pm:257:     return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
>> /System/Library/Perl/5.30/Carp.pm:257:     return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
>> /System/Library/Perl/5.30/Carp.pm:258:     return;
>> /System/Library/Perl/5.30/Carp.pm:652:         my $called = $cgc ? $cgc->($i) : caller($i);
>> /System/Library/Perl/5.30/Carp.pm:653:         $i++;
>> /System/Library/Perl/5.30/Carp.pm:654:         my $caller = $cgc ? $cgc->($i) : caller($i);
>> /System/Library/Perl/5.30/Carp.pm:656:         if (!defined($caller)) {
>> /System/Library/Perl/5.30/Carp.pm:670:         redo if $Internal{$caller};
>> /System/Library/Perl/5.30/Carp.pm:671:         redo if $CarpInternal{$caller};
>> /System/Library/Perl/5.30/Carp.pm:672:         redo if $CarpInternal{$called};
>> /System/Library/Perl/5.30/Carp.pm:651:         my $cgc = _cgc();
>> /System/Library/Perl/5.30/Carp.pm:257:     return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
>> /System/Library/Perl/5.30/Carp.pm:257:     return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
>> /System/Library/Perl/5.30/Carp.pm:258:     return;
>> /System/Library/Perl/5.30/Carp.pm:652:         my $called = $cgc ? $cgc->($i) : caller($i);
>> /System/Library/Perl/5.30/Carp.pm:653:         $i++;
>> /System/Library/Perl/5.30/Carp.pm:654:         my $caller = $cgc ? $cgc->($i) : caller($i);
>> /System/Library/Perl/5.30/Carp.pm:656:         if (!defined($caller)) {
>> /System/Library/Perl/5.30/Carp.pm:670:         redo if $Internal{$caller};
>> /System/Library/Perl/5.30/Carp.pm:671:         redo if $CarpInternal{$caller};
>> /System/Library/Perl/5.30/Carp.pm:672:         redo if $CarpInternal{$called};
>> /System/Library/Perl/5.30/Carp.pm:673:         redo if trusts( $called, $caller, $cache );
>> /System/Library/Perl/5.30/Carp.pm:709:     my $child  = shift;
>> /System/Library/Perl/5.30/Carp.pm:710:     my $parent = shift;
>> /System/Library/Perl/5.30/Carp.pm:711:     my $cache  = shift;
>> /System/Library/Perl/5.30/Carp.pm:712:     my ( $known, $partial ) = get_status( $cache, $child );
>> /System/Library/Perl/5.30/Carp.pm:497:     my $cache = shift;
>> /System/Library/Perl/5.30/Carp.pm:498:     my $pkg   = shift;
>> /System/Library/Perl/5.30/Carp.pm:499:     $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ];
>> /System/Library/Perl/5.30/Carp.pm:729:     my $class = shift;
>> /System/Library/Perl/5.30/Carp.pm:731:     my $stash = \%{"$class\::"};
>> /System/Library/Perl/5.30/Carp.pm:731:     my $stash = \%{"$class\::"};
>> /System/Library/Perl/5.30/Carp.pm:732:     for my $var (qw/ CARP_NOT ISA /) {
>> /System/Library/Perl/5.30/Carp.pm:735:         if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
>> /System/Library/Perl/5.30/Carp.pm:735:         if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
>> /System/Library/Perl/5.30/Carp.pm:736:           && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
>> /System/Library/Perl/5.30/Carp.pm:736:           && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
>> /System/Library/Perl/5.30/Carp.pm:737:            return @{$stash->{$var}}
>> /System/Library/Perl/5.30/Carp.pm:737:            return @{$stash->{$var}}
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:715:     while ( @$partial and not exists $known->{$parent} ) {
>> /System/Library/Perl/5.30/Carp.pm:724:     return exists $known->{$parent};
>> /System/Library/Perl/5.30/Carp.pm:651:         my $cgc = _cgc();
>> /System/Library/Perl/5.30/Carp.pm:257:     return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
>> /System/Library/Perl/5.30/Carp.pm:257:     return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
>> /System/Library/Perl/5.30/Carp.pm:258:     return;
>> /System/Library/Perl/5.30/Carp.pm:652:         my $called = $cgc ? $cgc->($i) : caller($i);
>> /System/Library/Perl/5.30/Carp.pm:653:         $i++;
>> /System/Library/Perl/5.30/Carp.pm:654:         my $caller = $cgc ? $cgc->($i) : caller($i);
>> /System/Library/Perl/5.30/Carp.pm:656:         if (!defined($caller)) {
>> /System/Library/Perl/5.30/Carp.pm:670:         redo if $Internal{$caller};
>> /System/Library/Perl/5.30/Carp.pm:671:         redo if $CarpInternal{$caller};
>> /System/Library/Perl/5.30/Carp.pm:672:         redo if $CarpInternal{$called};
>> /System/Library/Perl/5.30/Carp.pm:673:         redo if trusts( $called, $caller, $cache );
>> /System/Library/Perl/5.30/Carp.pm:709:     my $child  = shift;
>> /System/Library/Perl/5.30/Carp.pm:710:     my $parent = shift;
>> /System/Library/Perl/5.30/Carp.pm:711:     my $cache  = shift;
>> /System/Library/Perl/5.30/Carp.pm:712:     my ( $known, $partial ) = get_status( $cache, $child );
>> /System/Library/Perl/5.30/Carp.pm:497:     my $cache = shift;
>> /System/Library/Perl/5.30/Carp.pm:498:     my $pkg   = shift;
>> /System/Library/Perl/5.30/Carp.pm:499:     $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ];
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:715:     while ( @$partial and not exists $known->{$parent} ) {
>> /System/Library/Perl/5.30/Carp.pm:716:         my $anc = shift @$partial;
>> /System/Library/Perl/5.30/Carp.pm:717:         next if exists $known->{$anc};
>> /System/Library/Perl/5.30/Carp.pm:718:         $known->{$anc}++;
>> /System/Library/Perl/5.30/Carp.pm:719:         my ( $anc_knows, $anc_partial ) = get_status( $cache, $anc );
>> /System/Library/Perl/5.30/Carp.pm:497:     my $cache = shift;
>> /System/Library/Perl/5.30/Carp.pm:498:     my $pkg   = shift;
>> /System/Library/Perl/5.30/Carp.pm:499:     $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ];
>> /System/Library/Perl/5.30/Carp.pm:729:     my $class = shift;
>> /System/Library/Perl/5.30/Carp.pm:731:     my $stash = \%{"$class\::"};
>> /System/Library/Perl/5.30/Carp.pm:731:     my $stash = \%{"$class\::"};
>> /System/Library/Perl/5.30/Carp.pm:732:     for my $var (qw/ CARP_NOT ISA /) {
>> /System/Library/Perl/5.30/Carp.pm:735:         if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
>> /System/Library/Perl/5.30/Carp.pm:735:         if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
>> /System/Library/Perl/5.30/Carp.pm:740:     return;
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:720:         my @found = keys %$anc_knows;
>> /System/Library/Perl/5.30/Carp.pm:721:         @$known{@found} = ();
>> /System/Library/Perl/5.30/Carp.pm:722:         push @$partial, @$anc_partial;
>> /System/Library/Perl/5.30/Carp.pm:724:     return exists $known->{$parent};
>> /System/Library/Perl/5.30/Carp.pm:674:         redo if trusts( $caller, $called, $cache );
>> /System/Library/Perl/5.30/Carp.pm:709:     my $child  = shift;
>> /System/Library/Perl/5.30/Carp.pm:710:     my $parent = shift;
>> /System/Library/Perl/5.30/Carp.pm:711:     my $cache  = shift;
>> /System/Library/Perl/5.30/Carp.pm:712:     my ( $known, $partial ) = get_status( $cache, $child );
>> /System/Library/Perl/5.30/Carp.pm:497:     my $cache = shift;
>> /System/Library/Perl/5.30/Carp.pm:498:     my $pkg   = shift;
>> /System/Library/Perl/5.30/Carp.pm:499:     $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ];
>> /System/Library/Perl/5.30/Carp.pm:729:     my $class = shift;
>> /System/Library/Perl/5.30/Carp.pm:731:     my $stash = \%{"$class\::"};
>> /System/Library/Perl/5.30/Carp.pm:731:     my $stash = \%{"$class\::"};
>> /System/Library/Perl/5.30/Carp.pm:732:     for my $var (qw/ CARP_NOT ISA /) {
>> /System/Library/Perl/5.30/Carp.pm:735:         if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
>> /System/Library/Perl/5.30/Carp.pm:735:         if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
>> /System/Library/Perl/5.30/Carp.pm:736:           && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
>> /System/Library/Perl/5.30/Carp.pm:736:           && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
>> /System/Library/Perl/5.30/Carp.pm:737:            return @{$stash->{$var}}
>> /System/Library/Perl/5.30/Carp.pm:737:            return @{$stash->{$var}}
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:715:     while ( @$partial and not exists $known->{$parent} ) {
>> /System/Library/Perl/5.30/Carp.pm:716:         my $anc = shift @$partial;
>> /System/Library/Perl/5.30/Carp.pm:717:         next if exists $known->{$anc};
>> /System/Library/Perl/5.30/Carp.pm:718:         $known->{$anc}++;
>> /System/Library/Perl/5.30/Carp.pm:719:         my ( $anc_knows, $anc_partial ) = get_status( $cache, $anc );
>> /System/Library/Perl/5.30/Carp.pm:497:     my $cache = shift;
>> /System/Library/Perl/5.30/Carp.pm:498:     my $pkg   = shift;
>> /System/Library/Perl/5.30/Carp.pm:499:     $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ];
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:500:     return @{ $cache->{$pkg} };
>> /System/Library/Perl/5.30/Carp.pm:720:         my @found = keys %$anc_knows;
>> /System/Library/Perl/5.30/Carp.pm:721:         @$known{@found} = ();
>> /System/Library/Perl/5.30/Carp.pm:722:         push @$partial, @$anc_partial;
>> /System/Library/Perl/5.30/Carp.pm:724:     return exists $known->{$parent};
>> /System/Library/Perl/5.30/Carp.pm:675:         redo unless 0 > --$lvl;
>> /System/Library/Perl/5.30/Carp.pm:677:     return $i - 1;
>> /System/Library/Perl/5.30/warnings.pm:442:     my(@callers_bitmask) = (caller($i))[9] ;
>> /System/Library/Perl/5.30/warnings.pm:443:     my $callers_bitmask =
>> /System/Library/Perl/5.30/warnings.pm:445:     length($callers_bitmask) > ($offset >> 3) or $offset = $Offsets{all};
>> /System/Library/Perl/5.30/warnings.pm:447:     my @results;
>> /System/Library/Perl/5.30/warnings.pm:448:     foreach my $type (FATAL, NORMAL) {
>> /System/Library/Perl/5.30/warnings.pm:449: 	next unless $wanted & $type;
>> /System/Library/Perl/5.30/warnings.pm:451: 	push @results, vec($callers_bitmask, $offset + $type - 1, 1);
>> /System/Library/Perl/5.30/warnings.pm:449: 	next unless $wanted & $type;
>> /System/Library/Perl/5.30/warnings.pm:451: 	push @results, vec($callers_bitmask, $offset + $type - 1, 1);
>> /System/Library/Perl/5.30/warnings.pm:455:     return $results[0] unless $has_message;
>> /System/Library/Perl/5.30/warnings.pm:458:     return if ($wanted & (NORMAL | FATAL | MESSAGE))
>> /System/Library/Perl/5.30/File/Find.pm:232: 		next Proc_Top_Item;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2951:       setup_vardir();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2399:   mtr_report("Creating var directory '$opt_vardir'...");
>> lib/mtr_report.pm:659:   if (defined $verbose)
>> lib/mtr_report.pm:661:     my @s = split /\[ (\S+) \]/, _name() . "@_\n";
>> lib/mtr_report.pm:109:   return $name ? $name." " : undef;
>> lib/mtr_report.pm:662:     if (@s > 1) {
>> lib/mtr_report.pm:670:       print $s[0];
Creating var directory '/Users/dimitrisstaratzis/Documents/server/builddir/mysql-test/var'...
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2401:   if ( $opt_vardir eq $default_vardir )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2406:     if ( -l $opt_vardir )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2428:   if ( ! -d $opt_vardir )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2430:     mtr_verbose("Creating $opt_vardir");
>> lib/mtr_report.pm:711:   if ( $verbose )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2431:     mkpath($opt_vardir);
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2435:   unless ( -d $opt_vardir and -w $opt_vardir )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2441:   mkpath("$opt_vardir/log");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2442:   mkpath("$opt_vardir/run");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2445:   mkpath("$opt_vardir/tmp");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2446:   mkpath($opt_tmpdir) if ($opt_tmpdir ne "$opt_vardir/tmp");
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2451:   if (check_socket_path_length("$opt_tmpdir/testsocket.sock")){
>> lib/My/Platform.pm:116:   my ($path)= @_;
>> lib/My/Platform.pm:118:   return 0 if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/My/Platform.pm:121:   return 0 if ($^O eq 'aix');
>> lib/My/Platform.pm:123:   return 0 if $^O eq 'gnukfreebsd' and length $path < 40;
>> lib/My/Platform.pm:125:   return 0 if $^O eq 'gnu';
>> lib/My/Platform.pm:127:   require IO::Socket::UNIX;
>> lib/My/Platform.pm:129:   my $truncated= undef;
>> lib/My/Platform.pm:132:   my $tmpdir = tempdir( CLEANUP => 0);
>> /System/Library/Perl/5.30/File/Temp.pm:1625:   if ( @_ && $_[0] eq 'File::Temp' ) {
>> /System/Library/Perl/5.30/File/Temp.pm:1633:   my %options = (
>> /System/Library/Perl/5.30/File/Temp.pm:1640:   my ($maybe_template, $args) = _parse_args(@_);
>> /System/Library/Perl/5.30/File/Temp.pm:1000:   my $leading_template = (scalar(@_) % 2 == 1 ? shift(@_) : '' );
>> /System/Library/Perl/5.30/File/Temp.pm:1001:   my %args = @_;
>> /System/Library/Perl/5.30/File/Temp.pm:1002:   %args = map { uc($_), $args{$_} } keys %args;
>> /System/Library/Perl/5.30/File/Temp.pm:1002:   %args = map { uc($_), $args{$_} } keys %args;
>> /System/Library/Perl/5.30/File/Temp.pm:1008:     $leading_template       ? $leading_template : ()
>> /System/Library/Perl/5.30/File/Temp.pm:1010:   delete $args{TEMPLATE};
>> /System/Library/Perl/5.30/File/Temp.pm:1012:   return( \@template, \%args );
>> /System/Library/Perl/5.30/File/Temp.pm:1641:   my $template = @$maybe_template ? $maybe_template->[0] : undef;
>> /System/Library/Perl/5.30/File/Temp.pm:1644:   %options = (%options, %$args);
>> /System/Library/Perl/5.30/File/Temp.pm:1649:   if (defined $template) {
>> /System/Library/Perl/5.30/File/Temp.pm:1679:     if ($options{"DIR"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:1685:       $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), TEMPXXX);
>> /System/Library/Perl/5.30/File/Temp.pm:1513:     return File::Spec->tmpdir unless $^O eq "MSWin32" && ${^TAINT};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:197:     my $cached = $_[0]->_cached_tmpdir('TMPDIR');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:159:     shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:160:     local $^W;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:161:     return if grep $ENV{$_} ne $tmpenv{$_}, @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:162:     return $tmpdir;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:198:     return $cached if defined $cached;
>> /System/Library/Perl/5.30/File/Temp.pm:1692:   my $tempdir;
>> /System/Library/Perl/5.30/File/Temp.pm:1693:   my $suffixlen = 0;
>> /System/Library/Perl/5.30/File/Temp.pm:1694:   if ($^O eq 'VMS') {           # dir names can end in delimiters
>> /System/Library/Perl/5.30/File/Temp.pm:1698:   if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) {
>> /System/Library/Perl/5.30/File/Temp.pm:1703:   my $errstr;
>> /System/Library/Perl/5.30/File/Temp.pm:1704:   croak "Error in tempdir() using $template: $errstr"
>> /System/Library/Perl/5.30/File/Temp.pm:332:   croak 'Usage: ($fh, $name) = _gettemp($template, OPTIONS);'
>> /System/Library/Perl/5.30/File/Temp.pm:338:   my $tempErrStr;
>> /System/Library/Perl/5.30/File/Temp.pm:341:   my %options = (
>> /System/Library/Perl/5.30/File/Temp.pm:351:   my $template = shift;
>> /System/Library/Perl/5.30/File/Temp.pm:352:   if (ref($template)) {
>> /System/Library/Perl/5.30/File/Temp.pm:359:   if (scalar(@_) % 2 != 0) {
>> /System/Library/Perl/5.30/File/Temp.pm:366:   %options = (%options, @_)  if @_;
>> /System/Library/Perl/5.30/File/Temp.pm:369:   ${$options{ErrStr}} = undef;
>> /System/Library/Perl/5.30/File/Temp.pm:369:   ${$options{ErrStr}} = undef;
>> /System/Library/Perl/5.30/File/Temp.pm:372:   if ($options{"open"} && $options{"mkdir"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:379:   my $start = length($template) - 1 - $options{"suffixlen"};
>> /System/Library/Perl/5.30/File/Temp.pm:387:   if (substr($template, $start - MINX + 1, MINX) ne 'X' x MINX) {
>> /System/Library/Perl/5.30/File/Temp.pm:399:   my $path = _replace_XX($template, $options{"suffixlen"});
>> /System/Library/Perl/5.30/File/Temp.pm:617:   croak 'Usage: _replace_XX($template, $ignore)'
>> /System/Library/Perl/5.30/File/Temp.pm:620:   my ($path, $ignore) = @_;
>> /System/Library/Perl/5.30/File/Temp.pm:626:   my $end = ( $] >= 5.006 ? "\\z" : "\\Z" );
>> /System/Library/Perl/5.30/File/Temp.pm:628:   if ($ignore) {
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:631:     $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
>> /System/Library/Perl/5.30/File/Temp.pm:633:   return $path;
>> /System/Library/Perl/5.30/File/Temp.pm:407:   my ($volume, $directories, $file);
>> /System/Library/Perl/5.30/File/Temp.pm:409:   if ($options{"mkdir"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:411:     ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:294:     my ($self,$path, $nofile) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:296:     my ($volume,$directory,$file) = ('','','');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:298:     if ( $nofile ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:299:         $directory = $path;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:307:     return ($volume,$directory,$file);
>> /System/Library/Perl/5.30/File/Temp.pm:415:     my @dirs = File::Spec->splitdir($directories);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> /System/Library/Perl/5.30/File/Temp.pm:419:     if ($#dirs == 0) {
>> /System/Library/Perl/5.30/File/Temp.pm:423:       if ($^O eq 'VMS') {     # need volume to avoid relative dir spec
>> /System/Library/Perl/5.30/File/Temp.pm:429:         $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
>> /System/Library/Perl/5.30/File/Temp.pm:432:         $parent = File::Spec->catpath($volume, $parent, '');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:350:     my ($self,$volume,$directory,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:352:     if ( $directory ne ''                && 
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:360:         $directory .= $file ;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:363:     return $directory ;
>> /System/Library/Perl/5.30/File/Temp.pm:456:   unless (-e $parent) {
>> /System/Library/Perl/5.30/File/Temp.pm:460:   unless (-d $parent) {
>> /System/Library/Perl/5.30/File/Temp.pm:469:   if (File::Temp->safe_level == MEDIUM) {
>> /System/Library/Perl/5.30/File/Temp.pm:2402:     my $self = shift;
>> /System/Library/Perl/5.30/File/Temp.pm:2403:     if (@_) {
>> /System/Library/Perl/5.30/File/Temp.pm:2418:     return $LEVEL;
>> /System/Library/Perl/5.30/File/Temp.pm:2402:     my $self = shift;
>> /System/Library/Perl/5.30/File/Temp.pm:2403:     if (@_) {
>> /System/Library/Perl/5.30/File/Temp.pm:2418:     return $LEVEL;
>> /System/Library/Perl/5.30/File/Temp.pm:485:   for (my $i = 0; $i < MAX_TRIES; $i++) {
>> /System/Library/Perl/5.30/File/Temp.pm:488:     if ($options{"open"}) {
>> /System/Library/Perl/5.30/File/Temp.pm:537:       if (mkdir( $path, 0700)) {
>> /System/Library/Perl/5.30/File/Temp.pm:539:         chmod(0700, $path);
>> /System/Library/Perl/5.30/File/Temp.pm:541:         return undef, $path;
>> /System/Library/Perl/5.30/File/Temp.pm:1713:   if ( $options{'CLEANUP'} && -d $tempdir) {
>> /System/Library/Perl/5.30/File/Temp.pm:1718:   return $tempdir;
>> lib/My/Platform.pm:133:   my $len = length($path) - length($tmpdir) - 1;
>> lib/My/Platform.pm:134:   my $testfile = $tmpdir . "/" . "x" x ($len  > 0 ? $len : 1);
>> lib/My/Platform.pm:135:   my $sock;
>> lib/My/Platform.pm:136:   eval {
>> lib/My/Platform.pm:137:     $sock= new IO::Socket::UNIX
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:19:     my $class = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:20:     unshift(@_, "Peer") if @_ == 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:21:     return $class->SUPER::new(@_);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:41:     my($class,%arg) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:42:     my $sock = $class->SUPER::new();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:312:     my $class = ref($_[0]) || $_[0] || "IO::Handle";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:313:     if (@_ != 1) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:325:     my $io = gensym;
>> /System/Library/Perl/5.30/Symbol.pm:101:     my $name = "GEN" . $genseq++;
>> /System/Library/Perl/5.30/Symbol.pm:102:     my $ref = \*{$genpkg . $name};
>> /System/Library/Perl/5.30/Symbol.pm:102:     my $ref = \*{$genpkg . $name};
>> /System/Library/Perl/5.30/Symbol.pm:103:     delete $$genpkg{$name};
>> /System/Library/Perl/5.30/Symbol.pm:104:     $ref;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:326:     bless $io, $class;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:44:     $sock->autoflush(1);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:495:     my $old = SelectSaver->new(qualify($_[0], caller));
>> /System/Library/Perl/5.30/Symbol.pm:117:     my ($name) = @_;
>> /System/Library/Perl/5.30/Symbol.pm:118:     if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) {
>> /System/Library/Perl/5.30/Symbol.pm:131:     $name;
>> /System/Library/Perl/5.30/SelectSaver.pm:42:     @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
>> /System/Library/Perl/5.30/SelectSaver.pm:43:     my $fh = select;
>> /System/Library/Perl/5.30/SelectSaver.pm:44:     my $self = bless \$fh, $_[0];
>> /System/Library/Perl/5.30/SelectSaver.pm:45:     select qualify($_[1], caller) if @_ > 1;
>> /System/Library/Perl/5.30/Symbol.pm:117:     my ($name) = @_;
>> /System/Library/Perl/5.30/Symbol.pm:118:     if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) {
>> /System/Library/Perl/5.30/Symbol.pm:131:     $name;
>> /System/Library/Perl/5.30/SelectSaver.pm:46:     $self;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:496:     my $prev = $|;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:497:     $| = @_ > 1 ? $_[1] : 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Handle.pm:498:     $prev;
>> /System/Library/Perl/5.30/SelectSaver.pm:50:     my $self = $_[0];
>> /System/Library/Perl/5.30/SelectSaver.pm:51:     select $$self;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:46:     ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:46:     ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:48:     return scalar(%arg) ? $sock->configure(\%arg)
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:25:     my($sock,$arg) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:26:     my($bport,$cport);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:28:     my $type = $arg->{Type} || SOCK_STREAM;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:30:     $sock->socket(AF_UNIX, $type, 0) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:77:     @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:78:     my($sock,$domain,$type,$protocol) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:80:     socket($sock,$domain,$type,$protocol) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:83:     ${*$sock}{'io_socket_domain'} = $domain;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:83:     ${*$sock}{'io_socket_domain'} = $domain;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:84:     ${*$sock}{'io_socket_type'}   = $type;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:84:     ${*$sock}{'io_socket_type'}   = $type;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:85:     ${*$sock}{'io_socket_proto'}  = $protocol;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:85:     ${*$sock}{'io_socket_proto'}  = $protocol;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:87:     $sock;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:33:     if(exists $arg->{Local}) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:34: 	my $addr = sockaddr_un($arg->{Local});
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:867:     if (wantarray) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:871: 	croak "usage:   sun_sv = sockaddr_un(filename)" unless @_ == 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:872:         pack_sockaddr_un(@_);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:35: 	$sock->bind($addr) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:212:     @_ == 2 or croak 'usage: $sock->bind(NAME)';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:213:     my $sock = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:214:     my $addr = shift;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:216:     return bind($sock, $addr) ? $sock
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:38:     if(exists $arg->{Listen} && $type != SOCK_DGRAM) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:39: 	$sock->listen($arg->{Listen} || 5) or
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:221:     @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:222:     my($sock,$queue) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:223:     $queue = 5
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:226:     return listen($sock, $queue) ? $sock
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:48:     $sock;
>> lib/My/Platform.pm:142:     $truncated= 1; # Be negatvie
>> lib/My/Platform.pm:144:     die "Could not create UNIX domain socket: $!"
>> lib/My/Platform.pm:147:     die "UNIX domain socket path was truncated"
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:52:     @_ == 1 or croak 'usage: $sock->hostpath()';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:53:     my $n = $_[0]->sockname || return undef;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:260:     @_ == 1 or croak 'usage: $sock->sockname()';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket.pm:261:     getsockname($_[0]);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/IO/Socket/UNIX.pm:54:     (sockaddr_un($n))[0];
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:867:     if (wantarray) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:868: 	croak "usage:   (filename) = sockaddr_un(sun_sv)" unless @_ == 1;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Socket.pm:869:         unpack_sockaddr_un(@_);
>> lib/My/Platform.pm:150:     $truncated= 0; # Yes, it worked!
>> lib/My/Platform.pm:154:   die "Unexpected failure when checking socket path length: $@"
>> lib/My/Platform.pm:157:   $sock= undef;  # Close socket
>> lib/My/Platform.pm:158:   rmtree($tmpdir); # Remove the tempdir and any socket file created
>> /System/Library/Perl/5.30/File/Path.pm:271:     my $old_style = !( @_ and __is_arg( $_[-1] ) );
>> /System/Library/Perl/5.30/File/Path.pm:70:     my ($arg) = @_;
>> /System/Library/Perl/5.30/File/Path.pm:77:     return ( ref $arg eq 'HASH' );
>> /System/Library/Perl/5.30/File/Path.pm:273:     my ($arg, $data, $paths);
>> /System/Library/Perl/5.30/File/Path.pm:275:     if ($old_style) {
>> /System/Library/Perl/5.30/File/Path.pm:276:         my ( $verbose, $safe );
>> /System/Library/Perl/5.30/File/Path.pm:277:         ( $paths, $verbose, $safe ) = @_;
>> /System/Library/Perl/5.30/File/Path.pm:278:         $data->{verbose} = $verbose;
>> /System/Library/Perl/5.30/File/Path.pm:279:         $data->{safe} = defined $safe ? $safe : 0;
>> /System/Library/Perl/5.30/File/Path.pm:281:         if ( defined($paths) and length($paths) ) {
>> /System/Library/Perl/5.30/File/Path.pm:282:             $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' );
>> /System/Library/Perl/5.30/File/Path.pm:324:     $data->{prefix} = '';
>> /System/Library/Perl/5.30/File/Path.pm:325:     $data->{depth}  = 0;
>> /System/Library/Perl/5.30/File/Path.pm:327:     my @clean_path;
>> /System/Library/Perl/5.30/File/Path.pm:328:     $data->{cwd} = getcwd() or do {
>> /System/Library/Perl/5.30/File/Path.pm:332:     for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
>> /System/Library/Perl/5.30/File/Path.pm:332:     for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
>> /System/Library/Perl/5.30/File/Path.pm:332:     for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
>> /System/Library/Perl/5.30/File/Path.pm:334:     for my $p (@$paths) {
>> /System/Library/Perl/5.30/File/Path.pm:337:         my $ortho_root = _IS_MSWIN32 ? _slash_lc($p) : $p;
>> /System/Library/Perl/5.30/File/Path.pm:339:           _IS_MSWIN32 ? _slash_lc( $data->{cwd} ) : $data->{cwd};
>> /System/Library/Perl/5.30/File/Path.pm:340:         my $ortho_root_length = length($ortho_root);
>> /System/Library/Perl/5.30/File/Path.pm:341:         $ortho_root_length-- if _IS_VMS;   # don't compare '.' with ']'
>> /System/Library/Perl/5.30/File/Path.pm:342:         if ( $ortho_root_length && _is_subdir( $ortho_root, $ortho_cwd ) ) {
>> /System/Library/Perl/5.30/File/Path.pm:253:     my ( $dir, $test ) = @_;
>> /System/Library/Perl/5.30/File/Path.pm:255:     my ( $dv, $dd ) = File::Spec->splitpath( $dir,  1 );
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:294:     my ($self,$path, $nofile) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:296:     my ($volume,$directory,$file) = ('','','');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:298:     if ( $nofile ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:299:         $directory = $path;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:307:     return ($volume,$directory,$file);
>> /System/Library/Perl/5.30/File/Path.pm:256:     my ( $tv, $td ) = File::Spec->splitpath( $test, 1 );
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:294:     my ($self,$path, $nofile) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:296:     my ($volume,$directory,$file) = ('','','');
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:298:     if ( $nofile ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:299:         $directory = $path;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:307:     return ($volume,$directory,$file);
>> /System/Library/Perl/5.30/File/Path.pm:259:     return 0 if $dv ne $tv;
>> /System/Library/Perl/5.30/File/Path.pm:261:     my @d = File::Spec->splitdir($dd);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> /System/Library/Perl/5.30/File/Path.pm:262:     my @t = File::Spec->splitdir($td);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> /System/Library/Perl/5.30/File/Path.pm:265:     return 0 if @t < @d;
>> /System/Library/Perl/5.30/File/Path.pm:348:         if (_IS_MACOS) {
>> /System/Library/Perl/5.30/File/Path.pm:356:             $p =~ s{/\z}{};
>> /System/Library/Perl/5.30/File/Path.pm:358:         push @clean_path, $p;
>> /System/Library/Perl/5.30/File/Path.pm:361:     @{$data}{qw(device inode)} = ( lstat $data->{cwd} )[ 0, 1 ] or do {
>> /System/Library/Perl/5.30/File/Path.pm:361:     @{$data}{qw(device inode)} = ( lstat $data->{cwd} )[ 0, 1 ] or do {
>> /System/Library/Perl/5.30/File/Path.pm:366:     return _rmtree( $data, \@clean_path );
>> /System/Library/Perl/5.30/File/Path.pm:370:     my $data   = shift;
>> /System/Library/Perl/5.30/File/Path.pm:371:     my $paths = shift;
>> /System/Library/Perl/5.30/File/Path.pm:373:     my $count  = 0;
>> /System/Library/Perl/5.30/File/Path.pm:374:     my $curdir = File::Spec->curdir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:114: sub curdir { '.' }
>> /System/Library/Perl/5.30/File/Path.pm:375:     my $updir  = File::Spec->updir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:208: sub updir { '..' }
>> /System/Library/Perl/5.30/File/Path.pm:377:     my ( @files, $root );
>> /System/Library/Perl/5.30/File/Path.pm:379:     foreach my $root (@$paths) {
>> /System/Library/Perl/5.30/File/Path.pm:389:           ? File::Spec->catfile( $data->{prefix}, $root )
>> /System/Library/Perl/5.30/File/Path.pm:392:         my ( $ldev, $lino, $perm ) = ( lstat $root )[ 0, 1, 2 ]
>> /System/Library/Perl/5.30/File/Path.pm:395:         if ( -d _ ) {
>> /System/Library/Perl/5.30/File/Path.pm:396:             $root = VMS::Filespec::vmspath( VMS::Filespec::pathify($root) )
>> /System/Library/Perl/5.30/File/Path.pm:399:             if ( !chdir($root) ) {
>> /System/Library/Perl/5.30/File/Path.pm:435:               or do {
>> /System/Library/Perl/5.30/File/Path.pm:440:             if (_NEED_STAT_CHECK) {
>> /System/Library/Perl/5.30/File/Path.pm:441:                 ( $ldev eq $cur_dev and $lino eq $cur_inode )
>> /System/Library/Perl/5.30/File/Path.pm:447:             $perm &= oct '7777';    # don't forget setuid, setgid, sticky bits
>> /System/Library/Perl/5.30/File/Path.pm:448:             my $nperm = $perm | oct '700';
>> /System/Library/Perl/5.30/File/Path.pm:455:             if (
>> /System/Library/Perl/5.30/File/Path.pm:467:             my $d;
>> /System/Library/Perl/5.30/File/Path.pm:468:             $d = gensym() if $] < 5.006;
>> /System/Library/Perl/5.30/File/Path.pm:469:             if ( !opendir $d, $curdir ) {
>> /System/Library/Perl/5.30/File/Path.pm:474:                 if ( !defined ${^TAINT} or ${^TAINT} ) {
>> /System/Library/Perl/5.30/File/Path.pm:479:                     @files = readdir $d;
>> /System/Library/Perl/5.30/File/Path.pm:481:                 closedir $d;
>> /System/Library/Perl/5.30/File/Path.pm:484:             if (_IS_VMS) {
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:492:             @files = grep { $_ ne $updir and $_ ne $curdir } @files;
>> /System/Library/Perl/5.30/File/Path.pm:494:             if (@files) {
>> /System/Library/Perl/5.30/File/Path.pm:497:                 my $narg = {%$data};
>> /System/Library/Perl/5.30/File/Path.pm:499:                   ( $cur_dev, $cur_inode, $updir, $canon, $data->{depth} + 1 );
>> /System/Library/Perl/5.30/File/Path.pm:498:                 @{$narg}{qw(device inode cwd prefix depth)} =
>> /System/Library/Perl/5.30/File/Path.pm:500:                 $count += _rmtree( $narg, \@files );
>> /System/Library/Perl/5.30/File/Path.pm:370:     my $data   = shift;
>> /System/Library/Perl/5.30/File/Path.pm:371:     my $paths = shift;
>> /System/Library/Perl/5.30/File/Path.pm:373:     my $count  = 0;
>> /System/Library/Perl/5.30/File/Path.pm:374:     my $curdir = File::Spec->curdir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:114: sub curdir { '.' }
>> /System/Library/Perl/5.30/File/Path.pm:375:     my $updir  = File::Spec->updir();
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:208: sub updir { '..' }
>> /System/Library/Perl/5.30/File/Path.pm:377:     my ( @files, $root );
>> /System/Library/Perl/5.30/File/Path.pm:379:     foreach my $root (@$paths) {
>> /System/Library/Perl/5.30/File/Path.pm:389:           ? File::Spec->catfile( $data->{prefix}, $root )
>> /System/Library/Perl/5.30/File/Path.pm:392:         my ( $ldev, $lino, $perm ) = ( lstat $root )[ 0, 1, 2 ]
>> /System/Library/Perl/5.30/File/Path.pm:395:         if ( -d _ ) {
>> /System/Library/Perl/5.30/File/Path.pm:569:             $root = VMS::Filespec::vmsify("./$root")
>> /System/Library/Perl/5.30/File/Path.pm:574:             if (
>> /System/Library/Perl/5.30/File/Path.pm:587:             my $nperm = $perm & oct '7777' | oct '600';
>> /System/Library/Perl/5.30/File/Path.pm:588:             if (    _FORCE_WRITABLE
>> /System/Library/Perl/5.30/File/Path.pm:594:             print "unlink $canon\n" if $data->{verbose};
>> /System/Library/Perl/5.30/File/Path.pm:597:             for ( ; ; ) {
>> /System/Library/Perl/5.30/File/Path.pm:598:                 if ( unlink $root ) {
>> /System/Library/Perl/5.30/File/Path.pm:599:                     push @{ ${ $data->{result} } }, $root if $data->{result};
>> /System/Library/Perl/5.30/File/Path.pm:609:                 ++$count;
>> /System/Library/Perl/5.30/File/Path.pm:610:                 last unless _IS_VMS && lstat $root;
>> /System/Library/Perl/5.30/File/Path.pm:614:     return $count;
>> /System/Library/Perl/5.30/File/Path.pm:506:             if ( $nperm != $perm and not chmod( $perm, $curdir ) ) {
>> /System/Library/Perl/5.30/File/Path.pm:512:               or
>> /System/Library/Perl/5.30/File/Path.pm:517:             ( $cur_dev, $cur_inode ) = ( stat $curdir )[ 0, 1 ]
>> /System/Library/Perl/5.30/File/Path.pm:522:             if (_NEED_STAT_CHECK) {
>> /System/Library/Perl/5.30/File/Path.pm:523:                 ( $data->{device} eq $cur_dev and $data->{inode} eq $cur_inode )
>> /System/Library/Perl/5.30/File/Path.pm:531:             if ( $data->{depth} or !$data->{keep_root} ) {
>> /System/Library/Perl/5.30/File/Path.pm:532:                 if ( $data->{safe}
>> /System/Library/Perl/5.30/File/Path.pm:540:                 if ( _FORCE_WRITABLE and !chmod $perm | oct '700', $root ) {
>> /System/Library/Perl/5.30/File/Path.pm:543:                 print "rmdir $root\n" if $data->{verbose};
>> /System/Library/Perl/5.30/File/Path.pm:544:                 if ( rmdir $root ) {
>> /System/Library/Perl/5.30/File/Path.pm:545:                     push @{ ${ $data->{result} } }, $root if $data->{result};
>> /System/Library/Perl/5.30/File/Path.pm:546:                     ++$count;
>> /System/Library/Perl/5.30/File/Path.pm:614:     return $count;
>> lib/My/Platform.pm:159:   return $truncated;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2459:   copytree("$glob_mysql_test_dir/std_data", "$opt_vardir/std_data", "0022");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:165:     $orig_umask= umask(oct($use_umask));
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:180:       copytree("$from_dir/$_", "$to_dir/$_");
>> lib/My/File/Path.pm:157:   my ($from_dir, $to_dir, $use_umask) = @_;
>> lib/My/File/Path.pm:159:   die "Usage: copytree(<fromdir>, <todir>, [<umask>])"
>> lib/My/File/Path.pm:162:   my $orig_umask;
>> lib/My/File/Path.pm:163:   if ($use_umask){
>> lib/My/File/Path.pm:168:   mkpath("$to_dir");
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> lib/My/File/Path.pm:169:   opendir(DIR, "$from_dir")
>> lib/My/File/Path.pm:171:   for(readdir(DIR)) {
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:189:       chmod(0666, "$to_dir/$_");
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:181:       next;
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:173:     next if "$_" eq "." or "$_" eq "..";
>> lib/My/File/Path.pm:176:     next if "$_" eq "SCCS";
>> lib/My/File/Path.pm:178:     if ( -d "$from_dir/$_" )
>> lib/My/File/Path.pm:185:     next unless -f "$from_dir/$_";
>> lib/My/File/Path.pm:186:     copy("$from_dir/$_", "$to_dir/$_");
>> /System/Library/Perl/5.30/File/Copy.pm:70:     croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
>> /System/Library/Perl/5.30/File/Copy.pm:73:     my $from = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:74:     my $to = shift;
>> /System/Library/Perl/5.30/File/Copy.pm:76:     my $size;
>> /System/Library/Perl/5.30/File/Copy.pm:77:     if (@_) {
>> /System/Library/Perl/5.30/File/Copy.pm:82:     my $from_a_handle = (ref($from)
>> /System/Library/Perl/5.30/File/Copy.pm:87:     my $to_a_handle =   (ref($to)
>> /System/Library/Perl/5.30/File/Copy.pm:93:     if (_eq($from, $to)) { # works for references, too
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:59:         $Scalar_Util_loaded && Scalar::Util::blessed($_)
>> /System/Library/Perl/5.30/File/Copy.pm:64:     return '' if ( (ref $from) xor (ref $to) );
>> /System/Library/Perl/5.30/File/Copy.pm:65:     return $from == $to if ref $from;
>> /System/Library/Perl/5.30/File/Copy.pm:66:     return $from eq $to;
>> /System/Library/Perl/5.30/File/Copy.pm:98:     if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:102:     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:67:     my($self, $key) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/Config.pm:70:     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
>> /System/Library/Perl/5.30/File/Copy.pm:104: 	my @fs = stat($from);
>> /System/Library/Perl/5.30/File/Copy.pm:105: 	if (@fs) {
>> /System/Library/Perl/5.30/File/Copy.pm:106: 	    my @ts = stat($to);
>> /System/Library/Perl/5.30/File/Copy.pm:107: 	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
>> /System/Library/Perl/5.30/File/Copy.pm:118:     if (defined &syscopy && !$Syscopy_is_copy
>> /System/Library/Perl/5.30/File/Copy.pm:142:     my $closefrom = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:143:     my $closeto = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:144:     my ($status, $r, $buf);
>> /System/Library/Perl/5.30/File/Copy.pm:145:     local($\) = '';
>> /System/Library/Perl/5.30/File/Copy.pm:147:     my $from_h;
>> /System/Library/Perl/5.30/File/Copy.pm:148:     if ($from_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:151:        open $from_h, "<", $from or goto fail_open1;
>> /System/Library/Perl/5.30/File/Copy.pm:152:        binmode $from_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:153:        $closefrom = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:158:     unless (defined $size) {
>> /System/Library/Perl/5.30/File/Copy.pm:159: 	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
>> /System/Library/Perl/5.30/File/Copy.pm:160: 	$size = 1024 if ($size < 512);
>> /System/Library/Perl/5.30/File/Copy.pm:161: 	$size = $Too_Big if ($size > $Too_Big);
>> /System/Library/Perl/5.30/File/Copy.pm:164:     my $to_h;
>> /System/Library/Perl/5.30/File/Copy.pm:165:     if ($to_a_handle) {
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:168: 	$to_h = \do { local *FH }; # XXX is this line obsolete?
>> /System/Library/Perl/5.30/File/Copy.pm:169: 	open $to_h, ">", $to or goto fail_open2;
>> /System/Library/Perl/5.30/File/Copy.pm:170: 	binmode $to_h or die "($!,$^E)";
>> /System/Library/Perl/5.30/File/Copy.pm:171: 	$closeto = 1;
>> /System/Library/Perl/5.30/File/Copy.pm:174:     $! = 0;
>> /System/Library/Perl/5.30/File/Copy.pm:175:     for (;;) {
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:180: 	for ($w = 0; $w < $r; $w += $t) {
>> /System/Library/Perl/5.30/File/Copy.pm:181:            $t = syswrite($to_h, $buf, $r - $w, $w)
>> /System/Library/Perl/5.30/File/Copy.pm:176: 	my ($r, $w, $t);
>> /System/Library/Perl/5.30/File/Copy.pm:177:        defined($r = sysread($from_h, $buf, $size))
>> /System/Library/Perl/5.30/File/Copy.pm:179: 	last unless $r;
>> /System/Library/Perl/5.30/File/Copy.pm:186:     close($to_h) || goto fail_open2 if $closeto;
>> /System/Library/Perl/5.30/File/Copy.pm:187:     close($from_h) || goto fail_open1 if $closefrom;
>> /System/Library/Perl/5.30/File/Copy.pm:190:     return 1;
>> lib/My/File/Path.pm:187:     if (!$use_umask)
>> lib/My/File/Path.pm:192:   closedir(DIR);
>> lib/My/File/Path.pm:194:   if ($orig_umask){
>> lib/My/File/Path.pm:196:     umask($orig_umask);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2461:   unless($plugindir)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2464:     if ($source_dist)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2466:       $plugindir="$opt_vardir/plugins";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2469:       $client_plugindir= $plugindir;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2470:       mkpath($plugindir);
>> lib/My/File/Path.pm:116:   my $path;
>> lib/My/File/Path.pm:118:   die "Usage: mkpath(<path>)" unless @_ == 1;
>> lib/My/File/Path.pm:120:   foreach my $dir ( File::Spec->splitdir( @_ ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:336:     return split m|/|, $_[1], -1;  # Preserve trailing fields
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:122:     if ($dir =~ /^[a-z]:/i){
>> lib/My/File/Path.pm:128:     $path= File::Spec->catdir($path, $dir);
>> lib/My/File/Path.pm:131:     next if -d $path; # Path already exists and is a directory
>> lib/My/File/Path.pm:132:     croak("File already exists but is not a directory: '$path'") if -e $path;
>> lib/My/File/Path.pm:133:     next if mkdir($path);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2471:       if (IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2488:         my $opt_use_copy= 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2489:         if (symlink "$opt_vardir/run", "$plugindir/symlink_test")
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2491:           $opt_use_copy= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2492:           unlink "$plugindir/symlink_test";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2495:         for (<$bindir/storage/*$multiconfig/*.so>,
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2501:           my $pname=basename($_);
>> /System/Library/Perl/5.30/File/Basename.pm:215:   my($path) = shift;
>> /System/Library/Perl/5.30/File/Basename.pm:220:   _strip_trailing_sep($path);
>> /System/Library/Perl/5.30/File/Basename.pm:332:     my $type = $Fileparse_fstype;
>> /System/Library/Perl/5.30/File/Basename.pm:334:     if ($type eq 'MacOS') {
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:337:     elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
>> /System/Library/Perl/5.30/File/Basename.pm:341:         $_[0] =~ s{(.)/*\z}{$1}s;
>> /System/Library/Perl/5.30/File/Basename.pm:222:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
>> /System/Library/Perl/5.30/File/Basename.pm:105:   my($fullname,@suffices) = @_;
>> /System/Library/Perl/5.30/File/Basename.pm:107:   unless (defined $fullname) {
>> /System/Library/Perl/5.30/File/Basename.pm:112:   my $orig_type = '';
>> /System/Library/Perl/5.30/File/Basename.pm:113:   my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
>> /System/Library/Perl/5.30/File/Basename.pm:115:   my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
>> /System/Library/Perl/5.30/File/Basename.pm:117:   if ($type eq "VMS" and $fullname =~ m{/} ) {
>> /System/Library/Perl/5.30/File/Basename.pm:123:   my($dirpath, $basename);
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:125:   if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
>> /System/Library/Perl/5.30/File/Basename.pm:147:     ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
>> /System/Library/Perl/5.30/File/Basename.pm:148:     if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
>> /System/Library/Perl/5.30/File/Basename.pm:157:     $dirpath = './' unless $dirpath;
>> /System/Library/Perl/5.30/File/Basename.pm:161:   my $tail   = '';
>> /System/Library/Perl/5.30/File/Basename.pm:162:   my $suffix = '';
>> /System/Library/Perl/5.30/File/Basename.pm:163:   if (@suffices) {
>> /System/Library/Perl/5.30/File/Basename.pm:174:   $tail .= $taint;
>> /System/Library/Perl/5.30/File/Basename.pm:175:   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
>> /System/Library/Perl/5.30/File/Basename.pm:227:   if( length $suffix and !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:232:   if( !length $basename ) {
>> /System/Library/Perl/5.30/File/Basename.pm:236:   return $basename;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2502:           if ($opt_use_copy)
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2508:             symlink rel2abs($_), "$plugindir/$pname";
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Functions.pm:60: 	*{$meth} = sub {&$sub('File::Spec', @_)};
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:502:     my ($self,$path,$base ) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:505:     if ( ! $self->file_name_is_absolute( $path ) ) {
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:244:     my ($self,$file) = @_;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:245:     return scalar($file =~ m:^/:s);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/File/Spec/Unix.pm:521:     return $self->canonpath( $path ) ;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2510:           set_plugin_var($pname);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2390:   local $_ = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2391:   s/\.\w+$//;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2392:   $ENV{"\U${_}_SO"} = $_[0];
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:2540:   foreach my $name (glob("r/*.progress r/*.log r/*.warnings"))
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:371:   init_timers();
>> lib/mtr_misc.pl:309:   $last_timer_set= gettimeofday();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:373:   unless (IS_WINDOWS) {
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:374:     binmode(STDOUT,":via(My::Tee)") or die "binmode(STDOUT, :via(My::Tee)):$!";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:374:     binmode(STDOUT,":via(My::Tee)") or die "binmode(STDOUT, :via(My::Tee)):$!";
>> /System/Library/Perl/5.30/PerlIO.pm:3: our $VERSION = '1.10';
>> /System/Library/Perl/5.30/PerlIO.pm:6: our %alias;
>> /System/Library/Perl/5.30/PerlIO.pm:29: 1;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:374:     binmode(STDOUT,":via(My::Tee)") or die "binmode(STDOUT, :via(My::Tee)):$!";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:374:     binmode(STDOUT,":via(My::Tee)") or die "binmode(STDOUT, :via(My::Tee)):$!";
>> /System/Library/Perl/5.30/PerlIO.pm:10:  my $class = shift;
>> /System/Library/Perl/5.30/PerlIO.pm:11:  while (@_)
>> /System/Library/Perl/5.30/PerlIO.pm:13:    my $layer = shift;
>> /System/Library/Perl/5.30/PerlIO.pm:14:    if (exists $alias{$layer})
>> /System/Library/Perl/5.30/PerlIO.pm:20:      $layer = "${class}::$layer";
>> /System/Library/Perl/5.30/PerlIO.pm:22:    eval { require $layer =~ s{::}{/}gr . '.pm' };
>> /System/Library/Perl/5.30/PerlIO.pm:22:    eval { require $layer =~ s{::}{/}gr . '.pm' };
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/PerlIO/via.pm:2: our $VERSION = '0.17';
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/PerlIO/via.pm:3: require XSLoader;
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/PerlIO/via.pm:4: XSLoader::load();
>> /System/Library/Perl/5.30/XSLoader.pm:21:     my ($caller, $modlibname) = caller();
>> /System/Library/Perl/5.30/XSLoader.pm:22:     my $module = $caller;
>> /System/Library/Perl/5.30/XSLoader.pm:24:     if (@_) {
>> /System/Library/Perl/5.30/XSLoader.pm:27:         $_[0] = $module;
>> /System/Library/Perl/5.30/XSLoader.pm:31:     my $boots = "$module\::bootstrap";
>> /System/Library/Perl/5.30/XSLoader.pm:32:     goto &$boots if defined &$boots;
>> /System/Library/Perl/5.30/XSLoader.pm:34:     goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file;
>> /System/Library/Perl/5.30/XSLoader.pm:36:     my @modparts = split(/::/,$module);
>> /System/Library/Perl/5.30/XSLoader.pm:37:     my $modfname = $modparts[-1];
>> /System/Library/Perl/5.30/XSLoader.pm:38:     my $modfname_orig = $modfname; # For .bs file search
>> /System/Library/Perl/5.30/XSLoader.pm:40:     my $modpname = join('/',@modparts);
>> /System/Library/Perl/5.30/XSLoader.pm:41:     my $c = () = split(/::/,$caller,-1);
>> /System/Library/Perl/5.30/XSLoader.pm:42:     $modlibname =~ s,[\\/][^\\/]+$,, while $c--;    # Q&D basename
>> /System/Library/Perl/5.30/XSLoader.pm:44:     if ($modlibname !~ m{^/}) {
>> /System/Library/Perl/5.30/XSLoader.pm:68:     my $file = "$modlibname/auto/$modpname/$modfname.bundle";
>> /System/Library/Perl/5.30/XSLoader.pm:75:     my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs";
>> /System/Library/Perl/5.30/XSLoader.pm:78:     goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs;
>> /System/Library/Perl/5.30/XSLoader.pm:80:     my $bootname = "boot_$module";
>> /System/Library/Perl/5.30/XSLoader.pm:81:     $bootname =~ s/\W/_/g;
>> /System/Library/Perl/5.30/XSLoader.pm:82:     @DynaLoader::dl_require_symbols = ($bootname);
>> /System/Library/Perl/5.30/XSLoader.pm:84:     my $boot_symbol_ref;
>> /System/Library/Perl/5.30/XSLoader.pm:86:     if ($boot_symbol_ref = dl_find_symbol( 0, $bootname )) {
>> /System/Library/Perl/5.30/XSLoader.pm:96:     my $libref = dl_load_file($file, 0) or do { 
>> /System/Library/Perl/5.30/XSLoader.pm:100:     push(@DynaLoader::dl_librefs,$libref);  # record loaded object
>> /System/Library/Perl/5.30/XSLoader.pm:102:     $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do {
>> /System/Library/Perl/5.30/XSLoader.pm:107:     push(@DynaLoader::dl_modules, $module); # record loaded module
>> /System/Library/Perl/5.30/XSLoader.pm:109:   boot:
>> /System/Library/Perl/5.30/XSLoader.pm:113:     push(@DynaLoader::dl_shared_objects, $file); # record files loaded
>> /System/Library/Perl/5.30/XSLoader.pm:114:     return &$xs(@_);
>> /System/Library/Perl/5.30/darwin-thread-multi-2level/PerlIO/via.pm:5: 1;
>> /System/Library/Perl/5.30/PerlIO.pm:23:    warn $@ if $@;
>> lib/My/Tee.pm:10:   open($copyfh, '>', "$::opt_vardir/log/stdout.log")
>> lib/My/Tee.pm:13:   bless { }, shift;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:375:     binmode(STDERR,":via(My::Tee)") or die "binmode(STDERR, :via(My::Tee)):$!";
>> lib/My/Tee.pm:10:   open($copyfh, '>', "$::opt_vardir/log/stdout.log")
>> lib/My/Tee.pm:13:   bless { }, shift;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:378:   mtr_report("Checking supported features...");
>> lib/mtr_report.pm:659:   if (defined $verbose)
>> lib/mtr_report.pm:661:     my @s = split /\[ (\S+) \]/, _name() . "@_\n";
>> lib/mtr_report.pm:109:   return $name ? $name." " : undef;
>> lib/mtr_report.pm:662:     if (@s > 1) {
>> lib/mtr_report.pm:670:       print $s[0];
>> lib/My/Tee.pm:18:  my ($obj, $buf, $fh) = @_;
>> lib/My/Tee.pm:19:  print $fh $buf;
>> lib/My/Tee.pm:20:  $fh->flush;
Checking supported features...
>> lib/My/Tee.pm:21:  print $copyfh $buf;
>> lib/My/Tee.pm:22:  return length($buf);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:380:   executable_setup();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1865:   $exe_patch='patch' if `patch -v`;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1868:   $exe_mysqladmin=     mtr_exe_exists("$path_client_bindir/mariadb-admin");
>> lib/mtr_misc.pl:188:   my @path= @_;
>> lib/mtr_misc.pl:189:   if (my $path= mtr_exe_maybe_exists(@path))
>> lib/mtr_misc.pl:143:   my @path= @_;
>> lib/mtr_misc.pl:145:   map {$_.= ".exe"} @path if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:146:   foreach my $path ( @path )
>> lib/mtr_misc.pl:148:     if(IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:154:       return $path if -x $path;
>> lib/mtr_misc.pl:191:     return $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1869:   $exe_mysql=          mtr_exe_exists("$path_client_bindir/mariadb");
>> lib/mtr_misc.pl:188:   my @path= @_;
>> lib/mtr_misc.pl:189:   if (my $path= mtr_exe_maybe_exists(@path))
>> lib/mtr_misc.pl:143:   my @path= @_;
>> lib/mtr_misc.pl:145:   map {$_.= ".exe"} @path if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:146:   foreach my $path ( @path )
>> lib/mtr_misc.pl:148:     if(IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:154:       return $path if -x $path;
>> lib/mtr_misc.pl:191:     return $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1870:   $exe_mysql_plugin=   mtr_exe_exists("$path_client_bindir/mariadb-plugin");
>> lib/mtr_misc.pl:188:   my @path= @_;
>> lib/mtr_misc.pl:189:   if (my $path= mtr_exe_maybe_exists(@path))
>> lib/mtr_misc.pl:143:   my @path= @_;
>> lib/mtr_misc.pl:145:   map {$_.= ".exe"} @path if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:146:   foreach my $path ( @path )
>> lib/mtr_misc.pl:148:     if(IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:154:       return $path if -x $path;
>> lib/mtr_misc.pl:191:     return $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1871:   $exe_mariadb_conv=   mtr_exe_exists("$path_client_bindir/mariadb-conv");
>> lib/mtr_misc.pl:188:   my @path= @_;
>> lib/mtr_misc.pl:189:   if (my $path= mtr_exe_maybe_exists(@path))
>> lib/mtr_misc.pl:143:   my @path= @_;
>> lib/mtr_misc.pl:145:   map {$_.= ".exe"} @path if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:146:   foreach my $path ( @path )
>> lib/mtr_misc.pl:148:     if(IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:154:       return $path if -x $path;
>> lib/mtr_misc.pl:191:     return $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1873:   $exe_mysql_embedded= mtr_exe_maybe_exists("$bindir/libmysqld/examples/mariadb-embedded",
>> lib/mtr_misc.pl:143:   my @path= @_;
>> lib/mtr_misc.pl:145:   map {$_.= ".exe"} @path if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:146:   foreach my $path ( @path )
>> lib/mtr_misc.pl:148:     if(IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:154:       return $path if -x $path;
>> lib/mtr_misc.pl:148:     if(IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:154:       return $path if -x $path;
>> lib/mtr_misc.pl:157:   return "";
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1877:   if ( $opt_embedded_server )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1885:     if ( defined $ENV{'MYSQL_TEST'} )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1894:       $exe_mysqltest= mtr_exe_exists("$path_client_bindir/mariadb-test");
>> lib/mtr_misc.pl:188:   my @path= @_;
>> lib/mtr_misc.pl:189:   if (my $path= mtr_exe_maybe_exists(@path))
>> lib/mtr_misc.pl:143:   my @path= @_;
>> lib/mtr_misc.pl:145:   map {$_.= ".exe"} @path if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:146:   foreach my $path ( @path )
>> lib/mtr_misc.pl:148:     if(IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:154:       return $path if -x $path;
>> lib/mtr_misc.pl:191:     return $path;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:383:   $opt_debug_server= 1 if $opt_debug || $opt_debug_common;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:385:   if (using_extern())
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:266: sub using_extern { return (keys %opts_extern > 0);};
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:393:     collect_mysqld_features();
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1727:   my $args;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1728:   mtr_init_args(\$args);
>> lib/mtr_misc.pl:55:   my $args = shift;
>> lib/mtr_misc.pl:56:   $$args = [];                            # Empty list
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1729:   mtr_add_arg($args, "--no-defaults");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1730:   mtr_add_arg($args, "--datadir=.");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1731:   mtr_add_arg($args, "--basedir=%s", $basedir);
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1732:   mtr_add_arg($args, "--lc-messages-dir=%s", $path_language);
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1733:   mtr_add_arg($args, "--skip-grant-tables");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1734:   mtr_add_arg($args, "--log-warnings=0");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1735:   mtr_add_arg($args, "--log-slow-admin-statements=0");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1736:   mtr_add_arg($args, "--log-queries-not-using-indexes=0");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1737:   mtr_add_arg($args, "--log-slow-slave-statements=0");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1738:   mtr_add_arg($args, "--verbose");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1739:   mtr_add_arg($args, "--help");
>> lib/mtr_misc.pl:60:   my $args=   shift;
>> lib/mtr_misc.pl:61:   my $format= shift;
>> lib/mtr_misc.pl:62:   my @fargs = @_;
>> lib/mtr_misc.pl:65:   $format= "\"$format\""
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_misc.pl:68:   push(@$args, sprintf($format, @fargs));
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1741:   my $exe_mysqld= find_mysqld($bindir);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1846:   my ($mysqld_basedir)= $ENV{MTR_BINDIR_FORCED} || $ENV{MTR_BINDIR} || @_;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1848:   my @mysqld_names= ("mariadbd", "mysqld", "mysqld-max-nt", "mysqld-max",
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1851:   if ( $opt_debug_server ){
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1857:   return my_find_bin($mysqld_basedir,
>> lib/My/Find.pm:60:   my ($base, $paths, $names, $required)= @_;
>> lib/My/Find.pm:61:   croak "usage: my_find_bin(<base>, <paths>, <names>, [<required>])"
>> lib/My/Find.pm:67:   foreach my $path (my_build_path_list($base, $paths, $names, $bin_extension)) {
>> lib/My/Find.pm:147:   my ($base, $paths, $names, $extension)= @_;
>> lib/My/Find.pm:151:   my (@names, @paths);
>> lib/My/Find.pm:152:   push(@names, ref $names eq "ARRAY" ? @$names : $names);
>> lib/My/Find.pm:153:   push(@paths, ref $paths eq "ARRAY" ? @$paths : $paths);
>> lib/My/Find.pm:161:   my @extra_dirs;
>> lib/My/Find.pm:162:   my $build_dir= $::multiconfig || $ENV{MTR_VS_CONFIG} || $ENV{MTR_BUILD_DIR};
>> lib/My/Find.pm:163:   push(@extra_dirs, $build_dir) if defined $build_dir;
>> lib/My/Find.pm:165:   if (defined $extension){
>> lib/My/Find.pm:176:   push(@extra_dirs,
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:187:   push(@paths, map { my $path= $_;
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:188: 		     map  { "$path/$_" } @extra_dirs
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:195:   @paths= map { my $path= $_;
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:196: 		map  { "$path/$_" } @names
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:203:   @paths= map { "$base/$_" } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:209:   @paths= map { glob("$_") } @paths;
>> lib/My/Find.pm:215:   return @paths;
>> lib/My/Find.pm:68:     return $path if ( -x $path or (IS_WINDOWS and -f $path) );
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1742:   my $cmd= join(" ", $exe_mysqld, @$args);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1744:   mtr_verbose("cmd: $cmd");
>> lib/mtr_report.pm:711:   if ( $verbose )
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1746:   my $list= `$cmd`;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1749:   $list =~ s/\n {22}(\S)/ $1/g;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1751:   my @list= split '\n', $list;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1753:   $mysql_version_id= 0;
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1754:   while (defined(my $line = shift @list)){
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:1761:   mtr_error("Could not find version of MariaDB")
>> lib/mtr_report.pm:685:   IO::Handle::flush(\*STDOUT) if IS_WINDOWS;
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_report.pm:686:   print STDERR _name(). _timestamp().
>> lib/mtr_report.pm:109:   return $name ? $name." " : undef;
>> lib/mtr_report.pm:631:   return "" unless $timestamp;
>> lib/My/Tee.pm:18:  my ($obj, $buf, $fh) = @_;
>> lib/My/Tee.pm:19:  print $fh $buf;
mysql-test-run: *** ERROR: Could not find version of MariaDB
>> lib/My/Tee.pm:20:  $fh->flush;
>> lib/My/Tee.pm:21:  print $copyfh $buf;
>> lib/My/Tee.pm:22:  return length($buf);
>> lib/mtr_report.pm:688:   if (IS_WINDOWS)
>> (eval 14)[lib/My/Platform.pm:53]:1: sub IS_WINDOWS { 0 }
>> lib/mtr_report.pm:695:     cluck "Error happened" if $verbose > 0;
>> lib/mtr_report.pm:696:     exit(1);
>> /Users/dimitrisstaratzis/Documents/server/mysql-test/mariadb-test-run.pl:152:   if ( defined $opt_tmpdir_pid and $opt_tmpdir_pid == $$ )
>> lib/mtr_unique.pm:57:   mtr_release_unique_id();
>> lib/mtr_unique.pm:120:   msg("release $$");
>> lib/mtr_unique.pm:28: sub msg {
>> lib/mtr_unique.pm:121:   if (defined $mtr_unique_fh)
>> lib/mtr_results.pm:31:   close RESF if $do_resfile;
>> lib/My/SafeProcess.pm:69:   for my $proc (values %running){
>> /System/Library/Perl/5.30/File/Temp.pm:869:     local($., $@, $!, $^E, $?);
>> /System/Library/Perl/5.30/File/Temp.pm:870:     cleanup(at_exit => 1);
>> /System/Library/Perl/5.30/File/Temp.pm:876:     my %h = @_;
>> /System/Library/Perl/5.30/File/Temp.pm:877:     my $at_exit = delete $h{at_exit};
>> /System/Library/Perl/5.30/File/Temp.pm:878:     $at_exit = 0 if not defined $at_exit;
>> /System/Library/Perl/5.30/File/Temp.pm:879:     { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
>> /System/Library/Perl/5.30/File/Temp.pm:879:     { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
>> /System/Library/Perl/5.30/File/Temp.pm:879:     { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
>> /System/Library/Perl/5.30/File/Temp.pm:881:     if (!$KEEP_ALL) {
>> /System/Library/Perl/5.30/File/Temp.pm:884:                    @{ $files_to_unlink{$$} } : () );
>> /System/Library/Perl/5.30/File/Temp.pm:885:       foreach my $file (@files) {
>> /System/Library/Perl/5.30/File/Temp.pm:899:                   @{ $dirs_to_unlink{$$} } : () );
>> /System/Library/Perl/5.30/File/Temp.pm:900:       my ($cwd, $cwd_to_remove);
>> /System/Library/Perl/5.30/File/Temp.pm:901:       foreach my $dir (@dirs) {
>> /System/Library/Perl/5.30/File/Temp.pm:921:       if (defined $cwd_to_remove) {
>> /System/Library/Perl/5.30/File/Temp.pm:933:         if exists $files_to_unlink{$$};
>> /System/Library/Perl/5.30/File/Temp.pm:935:         if exists $dirs_to_unlink{$$};