From b5cb35c31b58f12cd64dd1566535ff2a56f6fa53 Mon Sep 17 00:00:00 2001
From: Dave Murphy <davem@devkitpro.org>
Date: Sat, 24 Mar 2018 09:50:57 +0000
Subject: [PATCH] use fixed path now we have pacman

---
 perl/devkitA64update.pl | 20 +-------------------
 perl/devkitARMupdate.pl | 20 +-------------------
 perl/devkitPPCupdate.pl | 20 +-------------------
 3 files changed, 3 insertions(+), 57 deletions(-)

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