#!/usr/bin/perl -w use strict; my $alienkey = 'msw_2_8_9_uni_mslu_gcc_3_4'; # check the OS Version # gdi plus is needed on 5.0 and below my $targetpart = qq(Alien/wxWidgets/$alienkey/lib/gdiplus.dll); my $aliendir = qq(Alien/wxWidgets/$alienkey); foreach ( @INC ) { if( -d qq($_/$aliendir) ) { my $targetfile = qq($_/$targetpart); unlink($targetfile); } } 1;