The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use strict;

if("$]" < 5.007002) {
	require Test::More;
	Test::More::plan(skip_all =>
		"require override can't work acceptably on this perl");
} elsif("$]" >= 5.007002 && "$]" < 5.008009) {
	require Test::More;
	Test::More::plan(skip_all =>
		"require override can't be dodged on this perl");
}

no warnings "once";
*CORE::GLOBAL::require = sub { require $_[0] };

do "./t/upo.t" or die $@ || $!;

1;