expectperl-discuss Mailing List for Expect.pm

> > >  It would be cool if in addition to the package variables
> > > (affecting all expect() calls), there was a per-object list as well.
> >
> > Not without a complete rewrite. :-)
> 
>   Well, right now it pretty much says: "if @Expect::Before_List then
> _multiexpect(@Expect::Before_List)."  What if it said: "@before_list =
> (@Expect::Before_List, @{${*$self}{before_list}}); if @before_list then
> _multiexpect @before_list"?  At any rate, just musing.

Unfortunately it isn't that easy.  This would only work for one object, but not
if you want to expect on several objects at once via '-i'.  It most certainly 
could be done in some way but would add a lot of complexity in terms of
semantics due to hidden parameters.  If you want such a thing, you are always
free to order your pattern-callback-list the way you want.

>   Cool!  That's one of the neatest things I've heard in awhile.  I never
> figured that would happen, because he seemed to like TCL so much.  So did I,
> originally, but life changed. :)

I still like Tcl, but only for its original intent, namely bringing an 
easy-to-understand-and-learn config scripting language to any application
with a minimum of fuss.  But I don't want to write large applications in
it anymore due to the quoting hell you get into when you want to smuggle
regexps with variables in them through the parser.  And the parsing-at-runtime
didn't help either...

BTW, if anybody can think of requirements for the Expect rewrite, feel free 
to throw them my way, I'll collect and forward them.  And yes, using the 
scripting languages regexp engine is already on the top of the list...

Roland
--
RGi...@cp...

  I learned this after much trial and error and thought I would share in
case someone else wants to know.  I figure someone will also point out a
much easier way I should have considered first.

  In TCL expect, you can clear the current buffer with
expect *
  (At least, I think you could.  The code I'm translating immediately
follows that statement with "expect -re .*".  Both statements seem to be
necessary for some reason, but the purpose is to clear the buffer.)

  To clear the buffer with Expect.pm, you can
$expect->expect(0, '-re', qr/(.|\n)+/);

  The \n is necessary (and tripped me up quite painfully) because . doesn't
match \n.  (I used to know that, but those brain cells apparently burned up
some while back.)

  $expect->expect(0) didn't seem to clear the buffer as I originally
expected.

jdb

> -----Original Message-----
> From: Roland Giersig [mailto:RGi...@a1...]
> Sent: Friday, November 30, 2001 10:24 AM
> To: Blackstone J. David
> Cc: exp...@li...
> Subject: Re: [Expectperl-discuss] @Expect::(Before|After)_List
> 
> 
> >  I note the presence of undocumented package variables 
> > @Before_List and
> > @After_List, presumably for expect_after and expect_before 
> > functionality,like the original TCL expect.  Neat!
> 
> Yup, my goal is (was) to model the Perl version as close as possible 
> after the Tcl version.
> 
> >  It would be cool if in addition to the package variables 
> > (affecting all expect() calls), there was a per-object list as well.
> 
> Not without a complete rewrite. :-)

  Well, right now it pretty much says: "if @Expect::Before_List then
_multiexpect(@Expect::Before_List)."  What if it said: "@before_list =
(@Expect::Before_List, @{${*$self}{before_list}}); if @before_list then
_multiexpect @before_list"?  At any rate, just musing.

> BTW, Don Libes is planning a rewrite of the original Expect 
> and one of 
> the goals is to create a lib that can be easily integrated into all 
> kinds of scripting languages.  I already contacted him and 
> will see to 
> it that it works with Perl.  No timeframe has been discussed yet, so 
> don't hold 'yer breath.

  Cool!  That's one of the neatest things I've heard in awhile.  I never
figured that would happen, because he seemed to like TCL so much.  So did I,
originally, but life changed. :)

jdb

>  I note the presence of undocumented package variables 
> @Before_List and
> @After_List, presumably for expect_after and expect_before 
> functionality,like the original TCL expect.  Neat!

Yup, my goal is (was) to model the Perl version as close as possible 
after the Tcl version.

>  It would be cool if in addition to the package variables 
> (affecting all expect() calls), there was a per-object list as well.

Not without a complete rewrite. :-)

BTW, Don Libes is planning a rewrite of the original Expect and one of 
the goals is to create a lib that can be easily integrated into all 
kinds of scripting languages.  I already contacted him and will see to 
it that it works with Perl.  No timeframe has been discussed yet, so 
don't hold 'yer breath.  I'll take note of that requirement and see if 
it's possible to design that in without too many backflips.

Cheers!

Roland
--
RGi...@cp...

  I note the presence of undocumented package variables @Before_List and
@After_List, presumably for expect_after and expect_before functionality,
like the original TCL expect.  Neat!

  It would be cool if in addition to the package variables (affecting all
expect() calls), there was a per-object list as well.

jdb

>  I note that the new IO::Tty is "based on ideas from openssh and 
> Xemacs."Any ideas from Libes' original Expect in there?  Have the 
> openssh and Xemacs
> guys figured out a better way than he did or did they just borrow 
> from his method?  How do all these different approaches compare?
> 
>  I'm just eaten up with curiosity. :)

Then you need a speedy answer! :-)

For pty allocation, I used ideas from openssh and Xemacs as they have a 
more modern approach.  A lot of systems have incorporated some kind of 
cloning device in the meantime that weren't there when Tcl/Expect was 
developed.  I concentrated on an idea from Xemacs, namely just figuring 
out what possibilities (libs/devices) are there and then trying all of 
them in order until one succeeds, the last one being the standard BSD-
style technique of opening all /dev/pty*s one after another until an 
open succeeds.

I collected several methods of allocating a pty from several sources. 
These are:

  openpty()
  _getpty()
  getpt()
  /dev/ptmx
  /dev/ptym/clone
  /dev/ptc
  /dev/ptmx_bsd

If anybody knows about other methods, please let me know.

Now what could be a problem is the pty setup: I use grantpt() and 
unlockpt() and push appropriate stream modules via ioctl, but there 
could be others necessary, esp. on older systems.  The problem is that 
I can only rely on information in manpages etc. that I look up via 
Google, so I'm flying by instruments, pestering clients to get test 
results.  

What I used from Tcl/Expect was the method how spawn() works, namely 
using pipes to synchronize the parent with the forked child until the 
child has set up the pty, passing up a possible exec() error on the 
fly. Quite nifty!

Any more questions?

Roland
--
RGi...@cp...

> BTW, there is a new version available that has a much improved pty 
> allocation.  It still has beta status, as I first want to 
> test it on as 
> much different systems as possible, but if you want you could try it 
> out.  Find it on CPAN under 
> R/RG/RGIERSIG/IO-Tty-0.92_03.tar.gz.  There 
> is also a matching Expect version there, Expect-1.13_01.tar.gz.

  I note that the new IO::Tty is "based on ideas from openssh and Xemacs."
Any ideas from Libes' original Expect in there?  Have the openssh and Xemacs
guys figured out a better way than he did or did they just borrow from his
method?  How do all these different approaches compare?

  I'm just eaten up with curiosity. :)

jdb

Morning Roland
	I though that if it failed to find the necessary file that the
Makefile would be incomplete. So I did include the other errors, but here
they are 

When I do a make I get the following

gcc -c  -DPERL_USE_SAFE_PUTENV -fno-strict-aliasing 
-I/usr/local/include -DUSEIMPORTLIB -O2   -DVERSION=\"0.05\"
-DXS_VERSION=\"0.05\" 
-I/usr/lib/perl5/5.6.1/cygwin-multi/CORE -DHAS_TTYNAME Tty.cygwin-multi/CORE
-DHAS_TTYNAME Tty.c
Tty.xs:111: Invalid token in expression
Tty.xs:242: Invalid token in expression
make: *** [Tty.o] Error 1

and the make test yields the same error

$ perl test.pl
Using /cygdrive/c/temp/IO-Tty-0.05/blib
Can't load '/usr/bin/Tty' for module IO::Tty: dlopen: Win32 error 126 at
/usr/li
b/perl5/5.6.1/cygwin-multi/DynaLoader.pm line 206.
 at /cygdrive/c/temp/IO-Tty-0.05/blib/lib/IO/Tty.pm line 25
Compilation failed in require at
/cygdrive/c/temp/IO-Tty-0.05/blib/lib/IO/Pty.pm
 line 7.
BEGIN failed--compilation aborted at
/cygdrive/c/temp/IO-Tty-0.05/blib/lib/IO/Pt
y.pm line 7.
Compilation failed in require at test.pl line 5.
BEGIN failed--compilation aborted at test.pl line 5.


So there seem to have a build problem .

G.
-----Original Message-----
From: Roland Giersig [mailto:RGi...@a1...]
Sent: Wednesday, November 28, 2001 10:15 AM
To: Maloney Gerard
Cc: 'exp...@li...'
Subject: Re: [Expectperl-discuss] errors when installing io::tty under
cygwin


>        I am experiencing difficulties with getting io:tty 
> installed on cygwin, which I need to get expect to work.

What kind of difficulties?  Does it not compile?  Do the tests fail?

> I checked the internet and found information about binutil , which I
> downloaded from cygwin. However following that I now get this
> 
> $ perl makefile.pl
> Looking for ttyname()... found.
> Looking for libutil.h... not found.
> Looking for util.h... not found.
> Looking for pty.h... not found.
> Looking for openpty()... not found.
> DEFINE = -DHAS_TTYNAME
> Writing Makefile for IO::Tty

No problem so far.  If those libraries were crucial, no Makefile would 
be written.  Go ahead and do a 'make' and 'make test', it should work.

BTW, there is a new version available that has a much improved pty 
allocation.  It still has beta status, as I first want to test it on as 
much different systems as possible, but if you want you could try it 
out.  Find it on CPAN under R/RG/RGIERSIG/IO-Tty-0.92_03.tar.gz.  There 
is also a matching Expect version there, Expect-1.13_01.tar.gz.

Hope this helps,

Roland
--
RGi...@cp...

>        I am experiencing difficulties with getting io:tty 
> installed on cygwin, which I need to get expect to work.

What kind of difficulties?  Does it not compile?  Do the tests fail?

> I checked the internet and found information about binutil , which I
> downloaded from cygwin. However following that I now get this
> 
> $ perl makefile.pl
> Looking for ttyname()... found.
> Looking for libutil.h... not found.
> Looking for util.h... not found.
> Looking for pty.h... not found.
> Looking for openpty()... not found.
> DEFINE = -DHAS_TTYNAME
> Writing Makefile for IO::Tty

No problem so far.  If those libraries were crucial, no Makefile would 
be written.  Go ahead and do a 'make' and 'make test', it should work.

BTW, there is a new version available that has a much improved pty 
allocation.  It still has beta status, as I first want to test it on as 
much different systems as possible, but if you want you could try it 
out.  Find it on CPAN under R/RG/RGIERSIG/IO-Tty-0.92_03.tar.gz.  There 
is also a matching Expect version there, Expect-1.13_01.tar.gz.

Hope this helps,

Roland
--
RGi...@cp...

Hello
	I am experiencing difficulties with getting io:tty installed on
cygwin, which I need to get expect to work.

I checked the internet and found information about binutil , which I
downloaded from cygwin. However following that I now get this

$ perl makefile.pl
Looking for ttyname()... found.
Looking for libutil.h... not found.
Looking for util.h... not found.
Looking for pty.h... not found.
Looking for openpty()... not found.
DEFINE = -DHAS_TTYNAME
Writing Makefile for IO::Tty

any ideas

Gerard 

> Another way would be to use callbacks, e.g.:
> 
>   $exp_obj->expect($timeout,
>                    [ qr"re_pattern" => sub { }],
>                    [ timeout => sub { die "Timeout" }],
>                    [ eof => sub { warn "EOF" }],
>                   );

  Thank you!  I didn't completely understand that I could do that, because I
thought when you passed arrayrefs like that you had to use regexes and
couldn't use the timeout/eof keywords.

J. David

>  I'm trying to figure out how to handle a timeout.  If I understand
> correctly, I can determine if a call to expect() timed out by 
> examining the
> second value in the return value list, e.g.:
> 
> my(undef, $error) = $exp_obj->expect(10, "thisstring");
> 
>  The documentation seems to say that when "thisstring" is not 
> found in 10
> seconds, $error will contain the string "1:TIMEOUT" .  Do I have this
> correct?

Yes, this is correct.  Also, the first return value will be undef.

Another way would be to use callbacks, e.g.:

  $exp_obj->expect($timeout,
                   [ qr"re_pattern" => sub { }],
                   [ timeout => sub { die "Timeout" }],
                   [ eof => sub { warn "EOF" }],
                  );

See the Expect FAQ for an example.

Hope this helps,

Roland
--
RGi...@cp...

  I'm trying to figure out how to handle a timeout.  If I understand
correctly, I can determine if a call to expect() timed out by examining the
second value in the return value list, e.g.:

my(undef, $error) = $exp_obj->expect(10, "thisstring");

  The documentation seems to say that when "thisstring" is not found in 10
seconds, $error will contain the string "1:TIMEOUT" .  Do I have this
correct?

  Thanks.

J. David Blackstone

> I'm doing some mulitline matching of an FTP prompt and I'm having
> trouble with a colon (:) in my regex.

No, you have troubles with backslashes...

> unless ( $pattern = $ftp->expect($timeout, '-re', 
  "550 $list/archive/latest/\*:", "226 Transfer complete.\r\nftp> " )){

Well, if I would be a perl parser, I would think: "Hmm, a string in 
double quotes... OK, let's substitute... a '$' means a variable 
substitution... oh, there is a backslash, OK, let's quote the next 
character, but it isn't a special character, so I just remove the 
backslash".  And later, the regexp engine thinks: "Let's see, it 
matched everything so far, the next character should be a slash that 
can occur zero or any number of times... OK, there is one slash... next 
charcter shoudl be a colon... nope, there is an asterisk there, sorry, 
no match!".

I'd suggest you use qr() or double that backslash.

> I don't know where the ^M come from. No doubt, because I am
> running cygwin.

Maybe, but that could also be just missing CRLF->LF translation in the 
pty, which is system dependent, so yes, it's Cygwin.

> So, it apppears the colon is the problem. But wait! the
> after-match string still has the asterisk. I escaped the
> asterisk. Do I have to double-escape it?

Yes.

> -- 
> Greg Matheson                    The best jokes are 
> Chinmin College                  those you play on
>                                  yourself.
                                   ^ does the above one count? :-)

Hope this helps,

Roland
--
RGi...@cp...

I'm doing some mulitline matching of an FTP prompt and I'm having
trouble with a colon (:) in my regex.

The line is:

unless ( $pattern = $ftp->expect($timeout, '-re', 
  "550 $list/archive/latest/\*:", "226 Transfer complete.\r\nftp> " )){
    die "No conditional on ms archive ls to local file, ".$ftp->error()."\n";
}

Actually, I want to map right to the end of the prompt I am
trying to match with the first pattern, but the colon (:) is
screwing things up. Here is the output from exp_internal:

Starting EXPECT pattern matching...^M
        Expect::expect('Expect=GLOB(0xbb537c)', 10, '-re', '550 namsook-wei-li/
+archive/latest/*:', '226 Transfer complete.^M^Jftp> ') called at ./down.pl
+line 69
spawn id(3): list of patterns:^M
  #1: -re `550 namsook-wei-li/archive/latest/*:'^M
  #2: -ex `226 Transfer complete.\r\nftp> '^M
^M
^M
spawn id(3): Does `'^M
match:^M
  pattern #1: -re `550 namsook-wei-li/archive/latest/*:'? No.^M
  pattern #2: -ex `226 Transfer complete.\r\nftp> '? No.^M
^M
^M
spawn id(3): Does `y\r\n'^M
match:^M
  pattern #1: -re `550 namsook-wei-li/archive/latest/*:'? No.^M
  pattern #2: -ex `226 Transfer complete.\r\nftp> '? No.^M
^M
^M
spawn id(3): Does `y\r\n200 PORT command successful.\r\012'^M
match:^M
  pattern #1: -re `550 namsook-wei-li/archive/latest/*:'? No.^M
  pattern #2: -ex `226 Transfer complete.\r\nftp> '? No.^M
^M
^M
spawn id(3): Does `y\r\n200 PORT command successful.\r\012550 namsook-wei-li/
+archive/latest/*: No such file or directory.\r\012ftp> '^M
match:^M
  pattern #1: -re `550 namsook-wei-li/archive/latest/*:'? No.^M
  pattern #2: -ex `226 Transfer complete.\r\nftp> '? No.^M
^M
No conditional on ms archive ls to local file, 0

I don't know where the ^M come from. No doubt, because I am
running cygwin.

I thought it might be due to the colon being special in regexes,
even though perldoc says they are only after (?: or in POSIX
classes, [: etc. So I tried escaping it, but I get the same
output from exp_internal.

So, I just deleted the colon and tried:

unless ( $pattern = $ftp->expect($timeout, '-re', 
  "550 $list/archive/latest/\*", "226 Transfer complete.\r\nftp> " )){
    die "No conditional on ms archive ls to local file, ".$ftp->error()."\n";
}

Starting EXPECT pattern matching...^M
        Expect::expect('Expect=GLOB(0xbb537c)', 10, '-re', '550 namsook-wei-li/
+archive/latest/*', '226 Transfer complete.^M^Jftp> ') called at ./down.pl line
+69
spawn id(3): list of patterns:^M
  #1: -re `550 namsook-wei-li/archive/latest/*'^M
  #2: -ex `226 Transfer complete.\r\nftp> '^M
^M
^M
spawn id(3): Does `'^M
match:^M
  pattern #1: -re `550 namsook-wei-li/archive/latest/*'? No.^M
  pattern #2: -ex `226 Transfer complete.\r\nftp> '? No.^M
^M
^M
spawn id(3): Does `y\r\n'^M
match:^M
  pattern #1: -re `550 namsook-wei-li/archive/latest/*'? No.^M
  pattern #2: -ex `226 Transfer complete.\r\nftp> '? No.^M
^M
^M
spawn id(3): Does `y\r\n200 PORT command successful.\r\012'^M
match:^M
 ttern #1: -re `550 namsook-wei-li/archive/latest/*'? No.^M
  pattern #2: -ex `226 Transfer complete.\r\nftp> '? No.^M
^M
^M
spawn id(3): Does `y\r\n200 PORT command successful.\r\012550 namsook-wei-li/
+archive/latest/*: No such file or directory.\r\012ftp> '^M
match:^M
  pattern #1: -re `550 namsook-wei-li/archive/latest/*'? YES!!^M
    Before match string: `y\r\n200 PORT command successful.\r\012'^M
    Match string: `550 namsook-wei-li/archive/latest/'^M
    After match string: `*: No such file or directory.\r\nftp> '^M
    Matchlist: ()^M

So, it apppears the colon is the problem. But wait! the
after-match string still has the asterisk. I escaped the
asterisk. Do I have to double-escape it?

In the lines before this, I am trying to get a listing of files:

        print $ftp "nlist $list/archive/latest ../ls\r";
        unless ($ftp->expect ($timeout, 'output to local-file: ../ls? ')) {
                die "Nlist question broken, ".$ftp->exp_error()."\n";
        }
        print $ftp "y\r";

I guess this is all academic, because my program is working, but
I remember reading in the expect man page about matching right to
the end of the prompt, and I would like to do that with the
Expect module too.

-- 
Greg Matheson                    The best jokes are 
Chinmin College                  those you play on
                                 yourself.
Taiwan Penpals Archive <URL: http://netcity.hinet.net/kurage>

>        I recently installed Perl on my Windows 2000 PC  and 
> wanted to install Expect.

I suppose you installed ActiveState Perl, right?  Expect doesn't work 
with that one, it needs the Cygwin environment which provides a more 
unix-like framework.  Find it under <http://sources.redhat.com/cygwin/>.

Hope this helps,

Roland
--
RGi...@cp...

Hello
	I recently installed Perl on my Windows 2000 PC  and wanted to
install Expect.
I download ed IO-Tty.pm from CPan but cannot install it , as I get the
following errors( see below). I also tried the Bundle::Expect, but the make
file is for Unix. 

Can someone point me to a Win2K compliant version of expect ? Help is
greatly appreciated.

G.

############# IO::Tty make errors####

c:\TEMP\IO-Tty-0.05>perl makefile.pl
cl' is not recognized as an internal or external command,
operable program or batch file.

ERROR: cannot run the configured compiler cl

Looking for ttyname()... The system cannot find the path specified.


Uh oh, I cannot seem to find ttyname() on your system!!

Looking for libutil.h... The system cannot find the path specified.
ot found.
Looking for util.h... The system cannot find the path specified.
ot found.
Looking for pty.h... The system cannot find the path specified.
ot found.
ooking for openpty()... The system cannot find the path specified.
ot found.
DEFINE =
checking if your kit is complete...
looks good
writing Makefile for IO::Tty

Hi There,

I'm using Expect to see if a program causes a segfault under certain 
circumstances. The code I'm using looks like that:

    $exp->expect(undef,
    	    ... several expect match clauses ...
            [ eof => sub {
                        my $self = shift;
                        $eof = 1;
                    } ],
                );
    my $status = $exp->soft_close();
    return ($exp->exitstatus() == 11);

That works fine under HPUX 10.20. Unfortunately on HPUX 11.00, 
$exp->exitstatus() is not defined. I looked at Expect.pm and found that on 
some condition (2:EOF) the exitstatus value does not get set. If I apply the 
following diffs to Expect.pm, my code works on HPUX 11.00 as well:

759c759,760
< 	    $exp->hard_close();
---
>	    my $hard_close_status = $exp->hard_close();
>	    ${*$exp}{exp_Exit} = $hard_close_status unless ${*$exp}{exp_Exit};


Can you consider including this fix (or a similar one) to the next version 
of Expect? I can test your fix if you send me a beta version.


Thanks,

Jean-Laurent




Here is some debugging info:
-----------------------------------------------------------------
Starting EXPECT pattern matching...
	Expect::expect('Expect=GLOB(0x402a9e4c)', undef, 'ARRAY(0x402a7b24)', 
'ARRAY(0x402a7ce0)', 'ARRAY(0x402a9ef4)', 'ARRAY(0x402a9fa8)') called at 
test.pl line 191
	main::run_passwd(...) called at test.pl line 316
	main::test_107() called at test.pl line 382
	main::main() called at test.pl line 390
Closing spawn id(4).
	Expect::hard_close('Expect=GLOB(0x402a9e4c)') called at 
/usr/local/lib/perl5/site_perl/5.005/Expect.pm line 759
	Expect::_multi_expect(undef, undef, 'ARRAY(0x402af9d0)') called at 
/usr/local/lib/perl5/site_perl/5.005/Expect.pm line 478
	Expect::expect('Expect=GLOB(0x402a9e4c)', undef, 'ARRAY(0x402a7b24)', 
'ARRAY(0x402a7ce0)', 'ARRAY(0x402a9ef4)', 'ARRAY(0x402a9fa8)') called at 
test.pl line 191
	main::run_passwd(...) called at test.pl line 316
	main::test_107() called at test.pl line 382
	main::main() called at test.pl line 390
spawn id(4) closed.
Pid 17741 of spawn id(4) exited, Status: 11
Closing spawn id(4).
	Expect::soft_close('Expect=GLOB(0x402a9e4c)') called at test.pl line 193
	main::run_passwd(...) called at test.pl line 316
	main::test_107() called at test.pl line 382
	main::main() called at test.pl line 390
Closing spawn id(4).
	Expect::hard_close('Expect=GLOB(0x402a9e4c)') called at 
/usr/local/lib/perl5/site_perl/5.005/Expect.pm line 1485
	Expect::DESTROY('Expect=GLOB(0x402a9e4c)') called at test.pl line 324
	eval {...} called at test.pl line 324
	main::test_107() called at test.pl line 382
	main::main() called at test.pl line 390
Pid 17741 of spawn id(4) exited, Status: -1

-----------------------------------------------------------------
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=hpux, osvers=11.00, archname=PA-RISC1.1
    uname='hp-ux disco b.11.00 u 9000800 125901587 unlimited-user license '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='gcc', optimize='-O', gccversion=2.9-hppa-991112
    cppflags='-D_HPUX_SOURCE -I/usr/local/include -D_FILE_OFFSET_BITS=64 
-I/usr/local/include'
    ccflags ='-D_HPUX_SOURCE -I/usr/local/include -D_FILE_OFFSET_BITS=64 
-I/usr/local/include'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-lnsl -lndbm -ldld -lm -lpthread
    libc=/usr/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E 
-Wl,-B,deferred '
    cccdlflags='-fpic', lddlflags='-b -L/usr/local/lib'


Characteristics of this binary (from libperl):
  Built under hpux
  Compiled at Jun 12 2001 12:31:36
  @INC:
    /usr/local/lib/perl5/5.00503/PA-RISC1.1
    /usr/local/lib/perl5/5.00503
    /usr/local/lib/perl5/site_perl/5.005/PA-RISC1.1
    /usr/local/lib/perl5/site_perl/5.005
    .

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp