diff --git a/perl/devkitA64update.pl b/perl/devkitA64update.pl index 36804a5..e3f0693 100755 --- a/perl/devkitA64update.pl +++ b/perl/devkitA64update.pl @@ -25,28 +25,10 @@ #----------------------------------------------------------------------------- use strict; - my $dir = "$ENV{HOME}/devkitPro"; + my $dir = "/opt/devkitpro"; my $downloader; my $archname; - if($ENV{"DEVKITPRO"} ne "") - { - $dir = $ENV{"DEVKITPRO"}; - } - - if($#ARGV eq 0) - { - $dir = $ARGV[0]; - } - - # Ensure full pathname - if(!($dir =~ /^\//)) - { - my $pwd = `pwd`; - chomp($pwd); - $dir = "$pwd/$dir"; - } - printf("devkitA64 Updater/Installer\n"); printf("Installing to %s\n", $dir); diff --git a/perl/devkitARMupdate.pl b/perl/devkitARMupdate.pl index 1d383a5..81604ba 100755 --- a/perl/devkitARMupdate.pl +++ b/perl/devkitARMupdate.pl @@ -25,28 +25,10 @@ #----------------------------------------------------------------------------- use strict; - my $dir = "$ENV{HOME}/devkitPro"; + my $dir = "/opt/devkitpro"; my $downloader; my $archname; - if($ENV{"DEVKITPRO"} ne "") - { - $dir = $ENV{"DEVKITPRO"}; - } - - if($#ARGV eq 0) - { - $dir = $ARGV[0]; - } - - # Ensure full pathname - if(!($dir =~ /^\//)) - { - my $pwd = `pwd`; - chomp($pwd); - $dir = "$pwd/$dir"; - } - printf("devkitARM Updater/Installer\n"); printf("Installing to %s\n", $dir); diff --git a/perl/devkitPPCupdate.pl b/perl/devkitPPCupdate.pl index d8c4ecc..6d05b87 100755 --- a/perl/devkitPPCupdate.pl +++ b/perl/devkitPPCupdate.pl @@ -25,28 +25,10 @@ #----------------------------------------------------------------------------- use strict; - my $dir = "$ENV{HOME}/devkitPro"; + my $dir = "/opt/devkitpro"; my $downloader; my $archname; - if($ENV{"DEVKITPRO"} ne "") - { - $dir = $ENV{"DEVKITPRO"}; - } - - if($#ARGV eq 0) - { - $dir = $ARGV[0]; - } - - # Ensure full pathname - if(!($dir =~ /^\//)) - { - my $pwd = `pwd`; - chomp($pwd); - $dir = "$pwd/$dir"; - } - printf("devkitPPC Updater/Installer\n"); printf("Installing to %s\n", $dir);