xref: /openbsd/gnu/usr.bin/perl/dist/Safe/t/safenamedcap.t (revision 274d7c50)

BEGIN {
    if ($] < 5.010) {
	print "1..0\n";
	exit 0;
    }
    require Config;
    import Config;
    if ($Config{'extensions'} !~ /\bOpcode\b/) {
	print "1..0\n";
	exit 0;
    }
}

use strict;
use Test::More;
use Safe;
plan(tests => 1);

BEGIN { Safe->new }
"foo" =~ /(?<foo>fo*)/;
is( $+{foo}, "foo", "Named capture works" );