Initial commit

Author: gucchisk

lib/Devel/PatchPerl/Plugin/Darwin.pm

@@ -0,0 +1,45 @@
+package Devel::PatchPerl::Plugin::Darwin;
+
+require Devel::PatchPerl;
+
+use strict;
+use warnings;
+
+my @patch = (
+    {
+	perl => [ qr/^5\.8\.9$/ ],
+	subs => [ [ \&_patch_darwin_locale_test ] ],
+    },
+);
+
+sub patchperl {
+    my $class = shift;
+    my %args = @_;
+    my ($vers, $source, $patchexe) = @args{'version', 'source', 'patchexe'};
+    for my $p ( grep { Devel::PatchPerl::_is( $_->{perl}, $vers ) } @patch) {
+	for my $s (@{$p->{subs}}) {
+	    my($sub, @args) = @$s;
+	    push @args, $vers unless scalar @args;
+	    $sub->(@args);
+	}
+    }
+}
+
+sub _patch_darwin_locale_test {
+    my $patch = <<'END';
+--- lib/locale.t
++++ lib/locale.t
+@@ -460,6 +460,9 @@ if ($^O eq 'darwin') {
+     if ($v >= 8 and $v < 10) {
+ 	debug "# Skipping eu_ES, be_BY locales -- buggy in Darwin\n";
+ 	@Locale = grep ! m/^(eu_ES|be_BY.CP1131$)/, @Locale;
++    } else {
++	debug "# Skipping be_BY locales -- buggy in Darwin\n";
++	@Locale = grep ! m/^be_BY\.CP1131$/, @Locale;
+     }
+ }
+END
+    Devel::PatchPerl::_patch($patch);
+}
+
+1;

t/patch.t

@@ -0,0 +1,38 @@
+use Test::More;
+use File::Temp;
+use File::Fetch;
+use File::Path;
+use Archive::Tar;
+use Devel::PatchPerl;
+use Devel::PatchPerl::Hints qw[hint_file];
+
+my $os = $^O;
+my $version = '5.8.9';
+
+$ENV{PERL5_PATCHPERL_PLUGIN} = 'Darwin';
+
+my $stderr;
+open my $stdtmp, '>&', STDERR;
+close STDERR;
+open STDERR, '>', \$stderr;
+
+my $temp = File::Temp->newdir();
+my $url = "http://www.cpan.org/src/5.0/perl-$version.tar.gz";
+my $ff = File::Fetch->new(uri => $url);
+my $targz = $ff->fetch( to => $temp->dirname ) or die $ff->error();
+my $tar = Archive::Tar->new($targz) or die;
+$tar->setcwd($temp->dirname);
+$tar->extract or die;
+my $srcdir = $temp->dirname . "/perl-$version";
+my $result = Devel::PatchPerl->patch_source($version, $srcdir);
+
+close STDERR;
+open STDERR, '>&', $stdtmp;
+close $stdtmp;
+
+my ($file, $data) = hint_file($os);
+
+is($result, 1, 'test result');
+is($stderr, "Patching 'hints/$file'\n", 'stderr');
+
+done_testing();