Fix arch detection, found because of aarch64 vs. arm64

cleanup_packages.pl

@@ -12,7 +12,7 @@ sub getInstalledPackages () {
 	open(my $fh, 'pkg_info |')
 	    or die $!;
 	while(<$fh>) {
-		s/[[:space:]]+.*//;
+		s/\s+.*//;
 		chomp;
 		$packages{$_} = 1;
 	}
@@ -23,7 +23,7 @@ sub getInstalledPackages () {
 
 sub getAvailablePackages ($) {
 	my $subdir = shift;
-	my $arch = `uname -m`;
+	my $arch = `uname -p`;
 	chomp $arch;
 	my $directory = "$portsdir/packages/$arch/$subdir";
 	my %packages = ();
@@ -44,7 +44,7 @@ sub getNotInstalledPackages ($$$) {
 	my $installed = shift;
 	my $available = shift;
 	my $dir = shift;
-	my $arch = `uname -m`;
+	my $arch = `uname -p`;
 	chomp $arch;
 
 	for my $pkg (sort keys %$available) {