1*de8cc8edSafresh1#!/usr/bin/perl 2*de8cc8edSafresh1 3*de8cc8edSafresh1package foo; 4*de8cc8edSafresh1use warnings; 5*de8cc8edSafresh1use strict; 6*de8cc8edSafresh1use Test::More tests => 2; 7*de8cc8edSafresh1use autodie; 8*de8cc8edSafresh1 9*de8cc8edSafresh1 10*de8cc8edSafresh1use_system(); 11*de8cc8edSafresh1ok("system() works with a lexical 'no autodie' block (github issue #69"); 12*de8cc8edSafresh1break_system(); 13*de8cc8edSafresh1 14*de8cc8edSafresh1sub break_system { 15*de8cc8edSafresh1 no autodie; 16*de8cc8edSafresh1 open(my $fh, "<", 'NONEXISTENT'); 17*de8cc8edSafresh1 ok("survived failing open"); 18*de8cc8edSafresh1} 19*de8cc8edSafresh1 20*de8cc8edSafresh1sub use_system { 21*de8cc8edSafresh1 system($^X, '-e' , 1); 22*de8cc8edSafresh1} 23*de8cc8edSafresh11; 24