diff --git a/infrastructure/lib/OpenBSD/PortGen/Port.pm b/infrastructure/lib/OpenBSD/PortGen/Port.pm
index 0974f38d486..1c33c8f842c 100644
--- a/infrastructure/lib/OpenBSD/PortGen/Port.pm
+++ b/infrastructure/lib/OpenBSD/PortGen/Port.pm
@@ -1,4 +1,4 @@
-# $OpenBSD: Port.pm,v 1.23 2022/01/05 18:28:25 sdk Exp $
+# $OpenBSD: Port.pm,v 1.24 2022/01/05 21:23:18 sdk Exp $
 #
 # Copyright (c) 2015 Giannis Tsaraias <tsg@openbsd.org>
 # Copyright (c) 2019 Andrew Hewus Fresh <afresh1@openbsd.org>
@@ -22,7 +22,7 @@ use warnings;
 
 use Cwd;
 use Fcntl qw( :mode );
-use File::Copy qw ( cp );
+use File::Copy qw( cp );
 use File::Find qw();
 use File::Path qw( make_path );
 use JSON::PP;
@@ -532,7 +532,7 @@ sub make_portdir
 	if ( -e $old ) {
 		my ($dst) = $new =~ m{^(.*)/[^/]+$};
 		make_path($dst) unless -e $dst;
-		copy( $old, $dst )
+		cp( $old, $dst )
 		    or die "Unable to copy $old to $new: $!";
 
 		unlink glob("$new/pkg/PLIST*.orig");