1package main; 2use strict; 3use warnings; 4 5# Calls open, while still in the main package. This shouldn't 6# be autodying. 7sub leak_test { 8 return open(my $fh, '<', $_[0]); 9} 10 11package autodie_test_module; 12 13# This should be calling CORE::open 14sub your_open { 15 return open(my $fh, '<', $_[0]); 16} 17 181; 19