From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RURBAN / B-C-1.57 / t / issue37.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

              
#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=37
# orassign ||= with old B::CC
use Test::More tests => 1;
use strict;
BEGIN {
  unshift @INC, 't';
  require TestBC;
}
my $script = <<'EOF';
my $x;
$x ||= 1;
print "ok" if $x;
EOF
use B::CC;
ctestok(1, "CC", "ccode37i", $script,
        $B::CC::VERSION < 1.08 ? "TODO B::CC issue 37" : "orassign ||=");