This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5337delta: note that stadtx was removed
[perl5.git] / plan9 / uninstall.rc
CommitLineData
a123eb89
R
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