37 lines
975 B
Diff
37 lines
975 B
Diff
Index: lib/OpenBSD/PortGen/Port.pm
|
|
===================================================================
|
|
RCS file: /home/cvs/ports/infrastructure/lib/OpenBSD/PortGen/Port.pm,v
|
|
retrieving revision 1.22
|
|
diff -u -p -u -p -r1.22 Port.pm
|
|
--- lib/OpenBSD/PortGen/Port.pm 5 Jan 2022 09:12:50 -0000 1.22
|
|
+++ lib/OpenBSD/PortGen/Port.pm 5 Jan 2022 15:21:33 -0000
|
|
@@ -22,6 +22,7 @@ use warnings;
|
|
|
|
use Cwd;
|
|
use Fcntl qw( :mode );
|
|
+use File::Copy qw ( cp );
|
|
use File::Find qw();
|
|
use File::Path qw( make_path );
|
|
use JSON::PP;
|
|
@@ -44,11 +45,6 @@ sub add_make_options
|
|
push(@make_options, @_);
|
|
}
|
|
|
|
-sub _cp {
|
|
- my (@args) = @_;
|
|
- system('/bin/cp', @args) == 0;
|
|
-}
|
|
-
|
|
sub new
|
|
{
|
|
my ( $class, %args ) = @_;
|
|
@@ -536,7 +532,7 @@ sub make_portdir
|
|
if ( -e $old ) {
|
|
my ($dst) = $new =~ m{^(.*)/[^/]+$};
|
|
make_path($dst) unless -e $dst;
|
|
- _cp( '-a', $old, $dst )
|
|
+ copy( $old, $dst )
|
|
or die "Unable to copy $old to $new: $!";
|
|
|
|
unlink glob("$new/pkg/PLIST*.orig");
|