#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=97
# require without op_first in use v5.12
use strict;
BEGIN {
  unshift @INC, 't';
  require TestBC;
}
use Test::More tests => 1;

my $source = $] < 5.012 ? "use 5.006; print q(ok);" : "use v5.12; print q(ok);";

plctestok(1, "ccode97i", $source, "BC require v5.12");