use fixed path now we have pacman

Author: WinterMute

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);
 

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);
 

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);