@@ -2,7 +2,7 @@ package Slim::Utils::OS::Debian;
22
33# Logitech Media Server Copyright 2001-2020 Logitech.
44# This program is free software; you can redistribute it and/or
5- # modify it under the terms of the GNU General Public License,
5+ # modify it under the terms of the GNU General Public License,
66# version 2.
77
88use strict;
@@ -20,7 +20,7 @@ sub initDetails {
2020
2121 unshift @INC , ' /usr/share/squeezeboxserver' ;
2222 unshift @INC , ' /usr/share/squeezeboxserver/CPAN' ;
23-
23+
2424 # Bug 2659 - maybe. Remove old versions of modules that are now in the $Bin/lib/ tree.
2525 unlink (" $Bin /CPAN/MP3/Info.pm" );
2626 unlink (" $Bin /CPAN/DBIx/ContextualFetch.pm" );
@@ -41,7 +41,7 @@ sub dirsFor {
4141 my ($class , $dir ) = @_ ;
4242
4343 my @dirs = ();
44-
44+
4545 if ($dir =~ / ^(?:oldprefs|updates)$ / ) {
4646
4747 push @dirs , $class -> SUPER::dirsFor($dir );
@@ -51,10 +51,10 @@ sub dirsFor {
5151 push @dirs , " /usr/share/squeezeboxserver/$dir " ;
5252
5353 } elsif ($dir eq ' Plugins' ) {
54-
54+
5555 push @dirs , $class -> SUPER::dirsFor($dir );
5656 push @dirs , " /usr/share/perl5/Slim/Plugin" , " /usr/share/squeezeboxserver/Plugins" ;
57-
57+
5858 } elsif ($dir =~ / ^(?:strings|revision|repositories)$ / ) {
5959
6060 push @dirs , " /usr/share/squeezeboxserver" ;
@@ -107,14 +107,14 @@ sub scanner {
107107}
108108
109109sub canAutoUpdate { $_ [0]-> runningFromSource ? 0 : 1 }
110- sub installerExtension { ' deb' };
110+ sub installerExtension { ' deb' };
111111
112112sub installerOS {
113113 my $class = shift ;
114-
115- if ( $class -> {osDetails }-> {osArch } =~ / ^arm/i ) {
114+
115+ if ( $class -> {osDetails }-> {osArch } =~ / ^( arm|aarch64) /i ) {
116116 return ' debarm' ;
117- }
117+ }
118118 elsif ( $class -> {osDetails }-> {osArch } =~ / ^x86_64/i ) {
119119 return ' debamd64' ;
120120 }
0 commit comments