use fixed path now we have pacman

devkitPro · Mar 24, 2018 · b5cb35c · b5cb35c
1 parent 0b3f42b
commit b5cb35c
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 57 deletions.
diff --git 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
@@ -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
@@ -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);