install-lib.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#! /usr/bin/perl -w

use File::Copy;
use File::Path qw(make_path);

foreach(@INC)
{
	if (/\/local\//)
	{
		print "Installing in $_...\n";

		make_path($_);

		copy('cleware.pm', $_);
		copy('cleware.so', $_);

		last;
	}
}