Path: usenet.cis.ufl.edu!usenet.eel.ufl.edu!psgrain!nntp.teleport.com!usenet
From: Graham Barr <bodg@tiuk.ti.com>
Newsgroups: comp.lang.perl.announce,comp.lang.perl.misc
Subject: Release of FindBin - package to locate script bin directory
Followup-To: comp.lang.perl.misc
Date: 14 Nov 1995 13:19:56 GMT
Organization: Texas Instruments Ltd. - via, but not speaking for
Lines: 49
Approved: merlyn@stonehenge.com (comp.lang.perl.announce)
Message-ID: <48a51s$k4f@maureen.teleport.com>
Reply-To: <bodg@tiuk.ti.com>
NNTP-Posting-Host: linda.teleport.com
X-Disclaimer: The "Approved" header verifies header information for article transmission and does not imply approval of content.
Xref: usenet.cis.ufl.edu comp.lang.perl.announce:181 comp.lang.perl.misc:11768


I have just uploaded to CPAN an intial release of FindBin.pm.

It is avaliable now on ftp://ftp.funet.fi/pub/languages/perl/CPAN/ and will
be avaliable soon on mirror sites

This module effectively replaces my previous release of the AddINC
package. Tim could you please update the Module List

-AddINC         adpf  Easy way to manipulate @INC via use          GBARR
+FindBin        adpf  Locate current script bin directory          GBARR

Here is the readme file

Please report any bugs/suggestions to Graham Barr <bodg@tiuk.ti.com>

All files contained in this installation are Copyright (c) 1995 Graham Barr
unless otherwise specified. All rights reserved.

This library is free software; you can redistribute it and/or modify it under 
the same terms as Perl itself.

At time of release there was a bug in perl (NETaa14423) which stopped the
use of this module being as intended

ie

 use FindBin qw($Bin $RealBin);
 use lib "$Bin/../lib","$RealBin/../lib";

a BEGIN can be used as a workaround

 use FindBin qw($Bin $RealBin);
 BEGIN { @LIBS = ("$Bin/../lib","$RealBin/../lib") }
 use lib @LIBS;

or

 use FindBin qw($Bin $RealBin);
 BEGIN { unshift(@INC, "$Bin/../lib","$RealBin/../lib") }

Regards,
Graham.

--
Graham Barr <bodg@tiuk.ti.com>
Texas Instruments Ltd.



.