Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (11 sloc) 0.29 kB
#!/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);
Jump to Line
Something went wrong with that request. Please try again.