#
# This module tweak @INC so that PPM will prefer to pick up modules from
# the same install area as itself lives in.  This make it safe to install
# upgrades to packages that PPM depend in the 'site' or 'user' areas.
#

@main::INC_ORIG = @INC;

(my $dir = __FILE__) =~ s,/ActivePerl/PPM/.*,,;

if (grep $_ eq $dir, @INC) {
    push(@INC, shift(@INC)) while $INC[0] ne $dir;
}

1;