1#!/usr/bin/perl -w
2
3use strict;
4
5use Test::More tests => 1;
6
7eval q{
8    use strict;
9    no warnings; # Suppress a "helpful" warning on STDERR
10    use autodie qw(open);
11    $open = 1;
12};
13like($@, qr/Global symbol "\$open" requires explicit package name/,
14     'autodie does not break "use strict;"');
15