1#!/bin/rc 2 3. buildinfo 4if (~ $#* 0) platforms = $objtype 5if not switch($1) { 6 case -a ; platforms = (386 68000 68020 arm arm amd64 mips power power64 sparc sparc64 spim) 7 case * ; echo 'Usage: uninstall.rc [-a]' >[1=2] ; exit 8} 9sourceroot=/sys/src/cmd/perl 10sourcedir=$sourceroot/$p9pvers 11privroot=/sys/lib/perl 12privlib=$privroot/$p9pvers 13sitelib=$privlib/site_perl 14 15echo Uninstalling perl/$p9pvers 16cd $sourceroot 17 18for(i in $platforms){ 19 archroot=/$i/lib/perl 20 archlib=$archroot/$p9pvers 21 if (test -d $archlib) rm -r $archlib 22 rm /$i/bin/perl-$p9pvers 23} 24if (test -d $privlib) rm -r $privlib 25if (test -d $sourcedir) rm -r $sourcedir 26