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