Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

blib.pm missing

Posted on 1997-04-10
2
Medium Priority
?
227 Views
Last Modified: 2013-12-16
Trying to install libnet-1.0502 on a Solaris 2.4 system on a Sun Sparc IPC.
Rec'd message indicating a missing module - blib.pm .
Unable to locate via search engines - anyone know where I may get this piece of the puzzle.

Thanks for any assistance -
Walter Butrymowicz
0
Comment
Question by:wbutry
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 

Accepted Solution

by:
forlorn earned 100 total points
ID: 1812007
blib.pm should have been installed in /usr/local/lib/perl5 or whatever your perl library directory is, during the initial perl install.

here it is otherwise.

--------------------------------------------------------------------
package blib;
 
=head1 NAME
 
blib - Use MakeMaker's uninstalled version of a package
 
=head1 SYNOPSIS
 
 perl -Mblib script [args...]
 
 perl -Mblib=dir script [args...]
 
=head1 DESCRIPTION
 
Looks for MakeMaker-like I<'blib'> directory structure starting in
I<dir> (or current directory) and working back up to five levels of '..'.
 
Intended for use on command line with B<-M> option as a way of testing
arbitary scripts against an uninstalled version of a package.
 
However it is possible to :
 
 use blib;
 or
 use blib '..';
 
etc. if you really must.
 
=head1 BUGS
 
Pollutes global name space for development only task.
 
=head1 AUTHOR
 
Nick Ing-Simmons nik@tiuk.ti.com
 
=cut
 
use Cwd;
 
 
sub import
{
 my $package = shift;
 my $dir = getcwd;
 if (@_)
  {
   print join(',',@_),"\n";
   $dir = shift;
   $dir =~ s/blib$//;
   $dir =~ s,/+$,,;
   $dir = '.' unless ($dir);
   die "$dir is not a directory\n" unless (-d $dir);
  }
 my $i   = 5;
 while ($i--)
  {
   my $blib = "${dir}/blib";
   if (-d $blib && -d "$blib/arch" && -d "$blib/lib")
    {
     unshift(@INC,"$blib/arch","$blib/lib");
     warn "Using $blib\n";
     return;
    }
   $dir .= "/..";
  }
 die "Cannot find blib even in $dir\n";
}
 
1;


0
 

Author Comment

by:wbutry
ID: 1812008
Thank you for your help. This was not included in the release of Perl 5.003 installed upon my systems. I appreciate your sending me a copy.

Walter
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction Regular patching is part of a system administrator's tasks. However, many patches require that the system be in single-user mode before they can be installed. A cluster patch in particular can take quite a while to apply if the machine…
I promised to write further about my project, and here I am.  First, I needed to setup the Primary Server.  You can read how in this article: Setup FreeBSD Server with full HDD encryption (http://www.experts-exchange.com/OS/Unix/BSD/FreeBSD/A_3660-S…
Learn several ways to interact with files and get file information from the bash shell. ls lists the contents of a directory: Using the -a flag displays hidden files: Using the -l flag formats the output in a long list: The file command gives us mor…
This video shows how to set up a shell script to accept a positional parameter when called, pass that to a SQL script, accept the output from the statement back and then manipulate it in the Shell.
Suggested Courses

721 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question