--- t/doc.t +++ t/doc.t @@ -19,8 +19,6 @@ BEGIN # If Date::Manip can't determine the time zone, it'll bomb out of the tests. $dm_notz = eval('Date::Manip::Date_TimeZone (); 1')? 0 : 1; } - delete $INC{'Date/Manip.pm'}; - %Date::Manip:: = (); } # Were all variables imported? (3) --- t/funcs.t +++ t/funcs.t @@ -22,8 +22,6 @@ BEGIN { # If Date::Manip can't determine the time zone, it'll bomb out of the tests. $manip_notz = eval ('Date::Manip::Date_TimeZone (); 1')? 0 : 1; } - delete $INC{'Date/Manip.pm'}; - %Date::Manip:: = (); } # Get day/month names in current locale --- t/manip.t +++ t/manip.t @@ -18,8 +18,6 @@ BEGIN $manip_bad = 'Date::Manip cannot determine time zone' unless eval 'Date::Manip::Date_TimeZone(); 1'; } - delete $INC{'Date/Manip.pm'}; - %Date::Manip:: = (); } my $t = 'first thursday in june 2003';