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