perl/UCW/Configure/Perl.pm

   1 # UCW Library configuration system: Perl paths
   2 # (c) 2017 Martin Mares <mj@ucw.cz>
   3
   4 package UCW::Configure::Perl;
   5 use UCW::Configure;
   6
   7 use strict;
   8 use warnings;
   9 use Config;
  10
  11 Log "Determining Perl module path ... ";
  12 my $prefix = $Config{installprefix};
  13 $prefix .= '/' unless $prefix =~ m{/$};
  14 my $lib = substr($Config{installvendorlib}, length $prefix);
  15 Set('INSTALL_PERL_DIR', Get('INSTALL_USR_PREFIX') . $lib);
  16 Log Get('INSTALL_PERL_DIR') . "\n";
  17
  18 Log "Determining Perl arch-dependent module path ... ";
  19 my $archlib = substr($Config{installvendorarch}, length $prefix);
  20 Set('INSTALL_PERL_ARCH_DIR', Get('INSTALL_USR_PREFIX') . $archlib);
  21 Log Get('INSTALL_PERL_ARCH_DIR') . "\n";
  22
  23 # We succeeded
  24 1;