github164.t

#!/usr/bin/perl

# This tests that a bug in indirect.pm which could cause a segfault does not
# come back.  See github 164 and rt.cpan.org 60378.

use perl5i::latest;
use Test::More;

eval {
    no warnings;
    my $x; my $y; "@{[ $x->$y ]}";
};
pass("Did not segfault");

done_testing(1);