#201: add testcases for Subroutine import redefined at .../Config.pm

t/issue201.t

@@ -0,0 +1,19 @@
+#! /usr/bin/env perl
+# http://code.google.com/p/perl-compiler/issues/detail?id=201
+# Subroutine import redefined at .../Config.pm line 38
+BEGIN {
+  unless (-d '.git') {
+    print "1..0 #SKIP Only if -d .git\n";
+    exit;
+  }
+}
+use strict;
+use Test::More tests => 2;
+
+my $X = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
+my $perlcc = "$X -Iblib/arch -Iblib/lib blib/script/perlcc";
+
+my $result = `$perlcc -r -e 'use Storable;*Storable::CAN_FLOCK=sub{1};print qq{ok\n}' 2>err`;
+my $err = do { local $/; open my $fh, "err"; <$fh> };
+is($err, "", "stderr");
+is($result, "ok\n");

t/testc.sh

@@ -584,6 +584,8 @@ tests[200]='%u=("\x{123}"=>"fo"); print "ok" if $u{"\x{123}"} eq "fo"'
 result[200]='ok'
 tests[2001]='BEGIN{%u=("\x{123}"=>"fo");} print "ok" if $u{"\x{123}"} eq "fo";'
 result[2001]='ok'
+tests[201]='use Storable;*Storable::CAN_FLOCK=sub{1};print qq{ok\n}'
+result[201]='ok'
 #issue 30
 tests[230]='sub f1 { my($self) = @_; $self->f2;} sub f2 {} sub new {} print "@ARGV\n";'
 result[230]=''