--- gcstar/bin/gcstar.orig	2006-11-25 22:25:06.000000000 +0000
+++ gcstar/bin/gcstar	2006-11-25 22:25:06.000000000 +0000
@@ -39,23 +39,20 @@
 use Getopt::Long;
 use File::Path;
 use File::Spec;
-use FindBin qw($RealBin);
 use POSIX qw(locale_h);
 
-$ENV{GCS_BIN_DIR} = $RealBin;
-($ENV{GCS_LIB_DIR} = $ENV{GCS_BIN_DIR}) =~ s/bin\/?$/lib\/gcstar/;
-($ENV{GCS_SHARE_DIR} = $ENV{GCS_BIN_DIR}) =~ s/bin\/?$/share\/gcstar/;
-use lib File::Spec->canonpath("$RealBin/../lib/gcstar");
+use lib qw(/usr/share/gcstar/lib);
+$ENV{GCS_BIN_DIR} = '/usr/bin';
+$ENV{GCS_LIB_DIR} = '/usr/share/gcstar/lib';
+$ENV{GCS_SHARE_DIR} = '/usr/share/gcstar';
 
 #XDG stuff
 my $home = $ENV{'HOME'};
 $home =~ s/\\/\//g if ($^O =~ /win32/i);
 
-$ENV{XDG_CONFIG_HOME} = $RealBin.'/../config' if ($^O =~ /win32/i);
 $ENV{XDG_CONFIG_HOME} = $home.'/.config' if ! exists $ENV{XDG_CONFIG_HOME};
 mkpath $ENV{XDG_CONFIG_HOME};
 
-$ENV{XDG_DATA_HOME} = $RealBin.'/../data' if ($^O =~ /win32/i);
 $ENV{XDG_DATA_HOME} = $home.'/.local/share' if ! exists $ENV{XDG_DATA_HOME};
 mkpath $ENV{XDG_DATA_HOME};
 
--- gcstar/install.orig	2007-01-11 05:00:06.000000000 +0000
+++ gcstar/install	2007-01-11 05:00:10.000000000 +0000
@@ -165,7 +165,7 @@
 
     #Copying lib
     verbosePrint $lang{InstallCopyDirectory}, $baseDir.'/lib/gcstar';
-    recursiveCopy('lib/gcstar', $baseDir.'/lib/gcstar');
+    recursiveCopy('lib/gcstar', $baseDir.'/share/gcstar/lib');
 
     #Copying share
     verbosePrint $lang{InstallCopyDirectory}, $baseDir.'/share/gcstar';