view release on metacpan or  search on metacpan

inc/Alien/Uninum/ModuleBuild.pm  view on Meta::CPAN

        #print "  trying to use $name: ";
       
        #require ExtUtils::CChecker;
        #require Capture::Tiny;
       
        #my $cc = ExtUtils::CChecker->new;
        #$cc->push_extra_compiler_flags(shellwords ' ' . $alien->cflags);
        #$cc->push_extra_linker_flags(shellwords  ' ' . $alien->libs);
        #my $ok;
        #my $out = Capture::Tiny::capture_merged(sub {
          #$ok = $cc->try_compile_run("int main(int argc, char *argv[]) { return 0; }");
        #});
        #if($ok)
        #{
          #print "ok\n";
          #$cflags .= ' ' . $alien->cflags;
          #$libs   .= ' ' . $alien->libs;
          #last;
        #}
        #else
        #{
          #print "failed\n";
          #print $out;
        #}
      #}
    #}
    #print "\n\n" unless $first;
  #}
 
  #local $ENV{CFLAGS} = $cflags;
  #local $ENV{LIBS}   = $libs;
   
  $self->SUPER::alien_do_commands($phase);
}

package
  main;

use Config;

sub alien_patch {
	my $unicode_h = 'unicode.h';
	my $unicode_h_new = "$unicode_h.tmp";
	open my $in,  '<', $unicode_h;
	open my $out, '>', $unicode_h_new;
	while(<$in>) {
		if(/^typedef.*UTF32;/) {
			# replace the UTF32 tyepdef
			# (it shouldn't be an unsigned long)
			print $out <<END;
/* PATCH: use Perl's U32 for portability */
typedef $Config{u32type}	UTF32;
END
		} else {
			print $out $_;
		}
	}
	close $in;
	close $out;
	unlink $unicode_h;
	rename $unicode_h_new, $unicode_h;
}
 
1;