git.maemo.org Git - pkg-perl/blob - deb-src/libalien-wxwidgets-perl/libalien-wxwidgets-perl-0.50/inc/My/Build.pm

   1 package My::Build;
   2
   3 use strict;
   4 use base qw(Module::Build);
   5 use Config;
   6 use File::Spec;
   7
   8 our @ISA;
   9 $main::NO_INIT = $main::NO_INIT; # no warnings...
  10
  11 sub awx_get_package {
  12     local $_ = $Config{osname};
  13
  14     # Win32
  15     /MSWin32/ and return 'Win32';
  16     # MacOS X is slightly different...
  17     /darwin/ and return 'MacOSX_wx_config';
  18     # default
  19     return 'Any_wx_config';
  20 }
  21
  22 BEGIN {
  23     my $package = 'My::Build';
  24
  25     # iterate until fixed point
  26     for( ; !$main::NO_INIT; ) {
  27         my $full_package = 'My::Build::' . $package->awx_get_package;
  28         last if $package eq $full_package;
  29
  30         my $file = $full_package . '.pm'; $file =~ s{::}{/}g;
  31
  32         require $file;
  33         @ISA = ( $full_package );
  34         $package = $full_package;
  35     }
  36 }
  37
  38 1;