gcstar-perlmoddir.patch

   1 --- gcstar-orig/bin/gcstar      2009-11-19 21:31:24.000000000 +0100
   2 +++ gcstar/bin/gcstar   2009-11-20 22:36:58.731092949 +0100
   3 @@ -40,17 +40,12 @@
   4  use Getopt::Long;
   5  use File::Path;
   6  use File::Spec;
   7 -use FindBin qw($RealBin);
   8  use POSIX qw(locale_h);
   9
  10 -$ENV{GCS_BIN_DIR} = $RealBin;
  11 -($ENV{GCS_LIB_DIR} = $ENV{GCS_BIN_DIR}) =~ s/bin\/?$/lib\/gcstar/;
  12 -($ENV{GCS_SHARE_DIR} = $ENV{GCS_BIN_DIR}) =~ s/bin\/?$/share\/gcstar/;
  13 -use lib File::Spec->canonpath("$RealBin/../lib/gcstar");
  14 -if (exists $ENV{PAR_TEMP})
  15 -{
  16 -    unshift @INC, "$RealBin/../lib/gcstar";
  17 -}
  18 +use lib qw(/usr/share/gcstar/lib);
  19 +$ENV{GCS_BIN_DIR} = '/usr/bin';
  20 +$ENV{GCS_LIB_DIR} = '/usr/share/gcstar/lib';
  21 +$ENV{GCS_SHARE_DIR} = '/usr/share/gcstar';
  22
  23  # For win32, redirect all the output to files
  24  if ($^O =~ /win32/i)
  25 @@ -80,23 +75,24 @@
  26  $ENV{GCS_CONFIG_HOME} = $ENV{XDG_CONFIG_HOME} if ($^O =~ /win32/i);
  27
  28  # Migrate settings from old windows data path if required
  29 -if (($^O =~ /win32/i) && !(-d $ENV{XDG_DATA_HOME}))
  30 -{
  31 -    if (-d $RealBin.'/../config')
  32 -    {
  33 -        print ("Need to migrate settings from old gcstar data store\n");
  34 -               mkpath $ENV{XDG_CONFIG_HOME};
  35 -        mkpath $ENV{XDG_DATA_HOME};
  36 -               my $winRealBin = $RealBin;
  37 -               $winRealBin =~ s/\//\\/g;
  38 -               my $winXDGConfig = $ENV{XDG_CONFIG_HOME};
  39 -               $winXDGConfig =~ s/\//\\/g;
  40 -               my $winXDGData = $ENV{XDG_CONFIG_HOME};
  41 -               $winXDGData =~ s/\//\\/g;
  42 -               system "xcopy /Y \"".$winRealBin."\\..\\config\" \"".$winXDGConfig."\"";
  43 -               system "xcopy /Y \"".$winRealBin."\\..\\data\" \"".$winXDGData."\"";
  44 -    }
  45 -}
  46 +# we don't need it, we are using linux (uzsolt)
  47 +# if (($^O =~ /win32/i) && !(-d $ENV{XDG_DATA_HOME}))
  48 +# {
  49 +#     if (-d $RealBin.'/../config')
  50 +#     {
  51 +#         print ("Need to migrate settings from old gcstar data store\n");
  52 +#              mkpath $ENV{XDG_CONFIG_HOME};
  53 +#         mkpath $ENV{XDG_DATA_HOME};
  54 +#              my $winRealBin = $RealBin;
  55 +#              $winRealBin =~ s/\//\\/g;
  56 +#              my $winXDGConfig = $ENV{XDG_CONFIG_HOME};
  57 +#              $winXDGConfig =~ s/\//\\/g;
  58 +#              my $winXDGData = $ENV{XDG_CONFIG_HOME};
  59 +#              $winXDGData =~ s/\//\\/g;
  60 +#              system "xcopy /Y \"".$winRealBin."\\..\\config\" \"".$winXDGConfig."\"";
  61 +#              system "xcopy /Y \"".$winRealBin."\\..\\data\" \"".$winXDGData."\"";
  62 +#     }
  63 +# }
  64
  65  mkpath $ENV{XDG_CONFIG_HOME};
  66  mkpath $ENV{XDG_DATA_HOME};
  67 --- gcstar-orig/install 2009-11-19 20:59:19.000000000 +0100
  68 +++ gcstar/install      2009-11-20 22:24:55.315124623 +0100
  69 @@ -256,7 +256,7 @@
  70
  71      #Copying lib
  72      verbosePrint $lang{InstallCopyDirectory}, $baseDir.'/lib/gcstar';
  73 -    recursiveCopy('lib/gcstar', $baseDir.'/lib/gcstar');
  74 +    recursiveCopy('lib/gcstar', $baseDir.'/share/gcstar/lib');
  75
  76      #Copying share
  77      verbosePrint $lang{InstallCopyDirectory}, $baseDir.'/share/gcstar';