#!/usr/bin/perl
# Time-stamp: <2008-05-01 21:50:55 phm>

=head1 NAME

site_perl_dir

=head1 DESCRIPTION

Print out the name of the directory into which our local packages are to be installed.

This is useful for writing portable Makefiles that help install our Perl system on various machines.

=head1 IMPLEMENTATION

=cut

for (@INC) { 
    m(\A(\/.*\/site\_perl)\/) && do { print $1, "\n";exit };
};

exit 1;

__END__

# Local Variables:
# coding: utf-8
# url: http://a2e.de/adv/perl/site_perl_dir.pl
# srcfile:/adv/perl/site_perl_dir.pl
# mode: perl
# End: