#!/usr/bin/perl -w
use strict;
use Test::More tests => 1;
eval q{
use strict;
no warnings; # Suppress a "helpful" warning on STDERR
use autodie qw(open);
$open = 1;
};
like($@, qr/Global symbol "\$open" requires explicit package name/,
'autodie does not break "use strict;"');