[19803] in Perl-Users-Digest
Perl-Users Digest, Issue: 1998 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 24 09:10:34 2001
Date: Wed, 24 Oct 2001 06:10:18 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1003929018-v10-i1998@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 24 Oct 2001 Volume: 10 Number: 1998
Today's topics:
Re: Strange behavior w/ SIGALRM and POSIX::sigaction- w (Garry Williams)
Updating Solaris default installed Perl <ronan.oconnor@materna.nl>
What exactly will "make install" do for my module? <edgue@web.de>
Re: What exactly will "make install" do for my module? <bernard.el-hagin@lido-tech.net>
Re: What exactly will "make install" do for my module? <edgue@web.de>
Re: What exactly will "make install" do for my module? <bernard.el-hagin@lido-tech.net>
Re: What exactly will "make install" do for my module? (EED)
Re: What exactly will "make install" do for my module? <bernard.el-hagin@lido-tech.net>
Re: What exactly will "make install" do for my module? <edgue@web.de>
Re: What exactly will "make install" do for my module? <bernard.el-hagin@lido-tech.net>
What's wrong with File::Find (EED)
Why a new installed Modul is not working <sasha_lui@yahoo.com>
Re: Why a new installed Modul is not working <bernard.el-hagin@lido-tech.net>
Re: Why a new installed Modul is not working <mgjv@tradingpost.com.au>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 24 Oct 2001 12:52:41 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: Strange behavior w/ SIGALRM and POSIX::sigaction- was (Re: alarm and put a timeout on a perl program an its shell childs ?)
Message-Id: <slrn9tdeco.pti.garry@zfw.zvolve.net>
On 24 Oct 2001 04:00:12 -0400, Joe Schaefer
<joe+usenet@sunstarsys.com> wrote:
> I have a related question that I haven't been able to solve.
> The following code does hostname lookups via gethostbyname()
> which is wrapped in a 2 second alarm:
>
> % cat try.pl
> #!/usr/bin/perl -wln
> use POSIX qw/:signal_h/;
>
> sub alrm {die "timeout"}
>
> eval {
> sigaction(SIGALRM, POSIX::SigAction->new("main::alrm"));
> alarm 2;
> $addr = gethostbyname $_;
> alarm 0;
> };
>
> if ($@) { print "$_ => $@" }
> else {
> $addr = $addr ? join '.', unpack('C4', $addr) : "BZZT";
> print "$_ => $addr";
> }
> __END__
>
> Now the problem is that once the alarm is triggered,
> *all* subsequent gethostbyname lookups are failing.
> Here's a linux stack trace for the first few timeouts
> ("www.rgee.com" is the first one here):
>
> % cat data
> www.microsoft.com
> www.aol.com
> www.rgee.com
> www.aol.com
> www.microsoft.com
>
> % ./try.pl data
> www.microsoft.com => 207.46.230.220
> www.aol.com => 64.12.149.24
> www.rgee.com => timeout at /tmp/try.pl line 4, <> line 3.
>
> www.aol.com => timeout at /tmp/try.pl line 4, <> line 4.
>
> www.microsoft.com => timeout at /tmp/try.pl line 4, <> line 5.
>
> % strace ./try.pl data
> ...
> send(5, "<\233\1\0\0\1\0\0\0\0\0\0\3www\4rgee\3com\0\0\1\0\1", 30, 0) = 30
> gettimeofday({1003909154, 795857}, NULL) = 0
> poll([{fd=5, events=POLLIN}], 1, 5000) = -1 EINTR (Interrupted system call)
> --- SIGALRM (Alarm clock) ---
> rt_sigprocmask(SIG_SETMASK, [RT_0], NULL, 8) = 0
> write(1, "www.rgee.com => timeout at /tmp/"...,) = 58
> write(1, "\n", 1
> ) = 1
> rt_sigaction(SIGALRM, {0x40065f70, [], SA_RESTART|0x4000000},
> {0x40065f70, [], 0x4000000}, 8) = 0
> rt_sigaction(SIGALRM, {0x40065f70, [], 0x4000000}, NULL, 8) = 0
> alarm(2) = 0
> rt_sigprocmask(SIG_SETMASK, NULL, [RT_0], 8) = 0
> rt_sigsuspend([] <unfinished ...>
> --- SIGALRM (Alarm clock) ---
> <... rt_sigsuspend resumed> ) = -1 EINTR (Interrupted system call)
> rt_sigprocmask(SIG_SETMASK, [RT_0], NULL, 8) = 0
> write(1, "www.aol.com => timeout at /tmp/t"...,) = 57
> write(1, "\n", 1
> ) = 1
> rt_sigaction(SIGALRM, {0x40065f70, [], SA_RESTART|0x4000000},
> {0x40065f70, [], 0x4000000}, 8) = 0
> rt_sigaction(SIGALRM, {0x40065f70, [], 0x4000000}, NULL, 8) = 0
> alarm(2) = 0
> rt_sigprocmask(SIG_SETMASK, NULL, [RT_0], 8) = 0
> rt_sigsuspend([] <unfinished ...>
> --- SIGALRM (Alarm clock) ---
> ...
>
> Does somebody understand what is going on here?
I don't have an explanation, but maybe this will help.
Don't know why sigsuspend() is being called here. But it works as
expected on Solaris (8):
$ perl try data
www.microsoft.com => 207.46.230.218
www.aol.com => 205.188.145.215
www.rgee.com => timeout at try line 4, <> line 3.
www.aol.com => 205.188.145.215
www.microsoft.com => 207.46.230.218
$
Here's all of what happens on Solaris:
$ truss perl data
...
read(4, " w w w . m i c r o s o f".., 8192) = 73
sigaction(SIGALRM, 0xFFBEF648, 0xFFBEF6C8) = 0
sigaction(SIGALRM, 0xFFBEF7E0, 0x00000000) = 0
alarm(2) = 0
open("/etc/netconfig", O_RDONLY) = 5
fstat64(5, 0xFFBEF1A8) = 0
ioctl(5, TCGETA, 0xFFBEF134) Err#25 ENOTTY
read(5, " # p r a g m a i d e n".., 8192) = 1239
read(5, 0x0011080C, 8192) = 0
llseek(5, 0, SEEK_CUR) = 1239
llseek(5, 0, SEEK_SET) = 0
read(5, " # p r a g m a i d e n".., 8192) = 1239
read(5, 0x0011080C, 8192) = 0
llseek(5, 0, SEEK_CUR) = 1239
close(5) = 0
open("/dev/udp", O_RDONLY) = 5
ioctl(5, 0xC00C6982, 0xFFBEF6FC) = 0
close(5) = 0
open64("/etc/.name_service_door", O_RDONLY) = 5
fcntl(5, F_SETFD, 0x00000001) = 0
door_info(5, 0xFF23C6A0) = 0
door_call(5, 0xFFBED668) = 0
open("/dev/udp", O_RDONLY) = 6
open("/dev/udp6", O_RDONLY) = 7
ioctl(7, 0xC00C6982, 0xFFBEF694) = 0
ioctl(7, 0xC0106978, 0xFFBEF684) = 0
ioctl(6, 0xC0786975, 0xFFBEF508) = 0
ioctl(6, 0xC078697D, 0xFFBEF508) = 0
ioctl(6, 0xC0786975, 0xFFBEF508) = 0
ioctl(6, 0xC078697D, 0xFFBEF508) = 0
close(6) = 0
close(7) = 0
alarm(0) = 2
ioctl(1, TCGETA, 0xFFBEF624) = 0
www.microsoft.com => 207.46.230.218
write(1, " w w w . m i c r o s o f".., 36) = 36
sigaction(SIGALRM, 0xFFBEF648, 0xFFBEF6C8) = 0
sigaction(SIGALRM, 0xFFBEF7E0, 0x00000000) = 0
alarm(2) = 0
door_info(5, 0xFFBED680) = 0
door_call(5, 0xFFBED668) = 0
alarm(0) = 2
www.aol.com => 205.188.145.215
write(1, " w w w . a o l . c o m ".., 31) = 31
sigaction(SIGALRM, 0xFFBEF648, 0xFFBEF6C8) = 0
sigaction(SIGALRM, 0xFFBEF7E0, 0x00000000) = 0
alarm(2) = 0
door_info(5, 0xFFBED680) = 0
door_call(5, 0xFFBED668) (sleeping...)
Received signal #14, SIGALRM, in door_call() [caught]
door_call(5, 0xFFBED668) Err#4 EINTR
getcontext(0xFFBECCE0)
setcontext(0xFFBECCE0)
brk(0x00176800) = 0
www.rgee.com => timeout at try line 4, <> line 3.
write(1, " w w w . r g e e . c o m".., 50) = 50
write(1, "\n", 1) = 1
sigaction(SIGALRM, 0xFFBEF648, 0xFFBEF6C8) = 0
sigaction(SIGALRM, 0xFFBEF7E0, 0x00000000) = 0
alarm(2) = 0
door_info(5, 0xFFBED680) = 0
door_call(5, 0xFFBED668) = 0
alarm(0) = 2
www.aol.com => 205.188.145.215
write(1, " w w w . a o l . c o m ".., 31) = 31
sigaction(SIGALRM, 0xFFBEF648, 0xFFBEF6C8) = 0
sigaction(SIGALRM, 0xFFBEF7E0, 0x00000000) = 0
alarm(2) = 0
door_info(5, 0xFFBED680) = 0
door_call(5, 0xFFBED668) = 0
alarm(0) = 2
www.microsoft.com => 207.46.230.218
write(1, " w w w . m i c r o s o f".., 36) = 36
read(4, 0x0010680C, 8192) = 0
llseek(4, 0, SEEK_CUR) = 73
close(4) = 0
getcontext(0xFFBEF700)
setcontext(0xFFBEF700)
llseek(0, 0, SEEK_CUR) = 28189
llseek(3, 0, SEEK_CUR) = 320
_exit(0)
--
Garry Williams
------------------------------
Date: Wed, 24 Oct 2001 11:56:22 +0200
From: "Ronan O'Connor" <ronan.oconnor@materna.nl>
Subject: Updating Solaris default installed Perl
Message-Id: <9r63jt$2mf$1@penthesilea.materna.de>
I've made a clean installation of Sun Solaris 2.8 on an Intel box. Solaris
2.8 comes with Perl 5.0.0.5 preinstalled. When I ran "perl -MCPAN -e shell",
the first time, a perl configuration script was run (not the one asking
which country you are in, your WAIT server etc... , but rather the script
which asks what platform you are running, what C compiler you use, how long
your INT is and so on). Unfortunately, I ran the configure script in default
mode, which I believe set my C compiler to be cc rather than the one I have
gcc. I would now like to rerun this config script and reset my C compiler
(which I think is causing lots of problems installing various Perl
Modules!). Does anyone know how to do this?
Cheers,
Ronan
------------------------------
Date: Wed, 24 Oct 2001 14:22:34 +0200
From: Edwin =?iso-8859-1?Q?G=FCnthner?= <edgue@web.de>
Subject: What exactly will "make install" do for my module?
Message-Id: <3BD6B28A.1E684835@web.de>
Hi there,
I developped a new module that needs to run on a lot of OS/2
machines. All those machines do not have make/gcc installed,
[I need gcc to compile some xs stuff] so there is no way
to tell my users:
*get perl,
*get my module,
*do "perl Makefile.pl",
*do "make install"
because they would need to install make+gcc to do it this
way. Therefore I am wondering if it is possible to
create a simple ZIP file that holds all the stuff that
is necessary for my module. Is that enough? Or is
it necessary to modify existing files of the Perl
distribution in order to "install" new modules?
thx,
eg
------------------------------
Date: 24 Oct 2001 12:27:17 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <slrn9tdch2.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Wed, 24 Oct 2001 14:22:34 +0200, Edwin Günthner <edgue@web.de> wrote:
> Hi there,
>
> I developped a new module that needs to run on a lot of OS/2
> machines. All those machines do not have make/gcc installed,
> [I need gcc to compile some xs stuff] so there is no way
> to tell my users:
>
> *get perl,
> *get my module,
> *do "perl Makefile.pl",
> *do "make install"
>
> because they would need to install make+gcc to do it this
> way. Therefore I am wondering if it is possible to
> create a simple ZIP file that holds all the stuff that
> is necessary for my module. Is that enough? Or is
> it necessary to modify existing files of the Perl
> distribution in order to "install" new modules?
Just look at the "install" entry in the Makefile created
after "perl Makefile.PL" to see what "make install" would
do. BTW, most of the time you won't need a C compiler to
install Perl modules.
Cheers,
Bernard
------------------------------
Date: Wed, 24 Oct 2001 14:32:23 +0200
From: Edwin =?iso-8859-1?Q?G=FCnthner?= <edgue@web.de>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <3BD6B4D7.A98EAB6@web.de>
Bernard El-Hagin wrote:
> Just look at the "install" entry in the Makefile created
> after "perl Makefile.PL" to see what "make install" would
> do. BTW, most of the time you won't need a C compiler to
> install Perl modules.
See, I was talking about my OWN module - and I am almost
sure that I know better than you whether I need a C compiler
to install it or not ;-)
But thx for the hint about "install" in Makefile.
------------------------------
Date: 24 Oct 2001 12:45:11 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <slrn9tddij.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Wed, 24 Oct 2001 14:32:23 +0200, Edwin Günthner <edgue@web.de> wrote:
>
>
> Bernard El-Hagin wrote:
>
>> Just look at the "install" entry in the Makefile created
>> after "perl Makefile.PL" to see what "make install" would
>> do. BTW, most of the time you won't need a C compiler to
>> install Perl modules.
>
> See, I was talking about my OWN module - and I am almost
> sure that I know better than you whether I need a C compiler
> to install it or not ;-)
I don't read minds. And my statement still stands, since I said
"most of the time".
> But thx for the hint about "install" in Makefile.
You betcha.
Cheers,
Bernard
------------------------------
Date: Wed, 24 Oct 2001 14:49:44 +0200
From: "Alexander Farber (EED)" <eedalf@eed.ericsson.se>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <3BD6B8E8.13E8E29E@eed.ericsson.se>
Bernard El-Hagin wrote:
>
> On Wed, 24 Oct 2001 14:32:23 +0200, Edwin Günthner <edgue@web.de> wrote:
> >
> > See, I was talking about my OWN module - and I am almost
> > sure that I know better than you whether I need a C compiler
> > to install it or not ;-)
>
> I don't read minds.
And subjects ;-)
------------------------------
Date: 24 Oct 2001 12:51:40 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <slrn9tddum.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Wed, 24 Oct 2001 14:49:44 +0200, Alexander Farber (EED)
<eedalf@eed.ericsson.se> wrote:
> Bernard El-Hagin wrote:
>>
>> On Wed, 24 Oct 2001 14:32:23 +0200, Edwin Günthner <edgue@web.de> wrote:
>> >
>> > See, I was talking about my OWN module - and I am almost
>> > sure that I know better than you whether I need a C compiler
>> > to install it or not ;-)
>>
>> I don't read minds.
>
> And subjects ;-)
And where in the subject is it stated that "my module" will
require a C compiler?
Cheers,
Bernard
------------------------------
Date: Wed, 24 Oct 2001 14:55:45 +0200
From: Edwin =?iso-8859-1?Q?G=FCnthner?= <edgue@web.de>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <3BD6BA51.C114E8A2@web.de>
Bernard El-Hagin wrote:
> And where in the subject is it stated that "my module" will
> require a C compiler?
Maybe your glasses require cleaning ... just have a look
what I wrote in my first posting:
"I developped a new module that needs to run on a lot of OS/2
machines. All those machines do not have make/gcc installed,
[I need gcc to compile some xs stuff] so there is no way ..."
------------------------------
Date: 24 Oct 2001 13:02:41 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <slrn9tdejd.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Wed, 24 Oct 2001 14:55:45 +0200, Edwin Günthner <edgue@web.de> wrote:
>
>
> Bernard El-Hagin wrote:
>
>> And where in the subject is it stated that "my module" will
>> require a C compiler?
>
> Maybe your glasses require cleaning ... just have a look
> what I wrote in my first posting:
>
> "I developped a new module that needs to run on a lot of OS/2
> machines. All those machines do not have make/gcc installed,
> [I need gcc to compile some xs stuff] so there is no way ..."
Missed that, but it doesn't mean you have to bitch about it.
You got an answer to your question and had to make a smart arse
response even though it was completely unnecessary. Well sod off, then.
*plonk*
Cheers,
Bernard
------------------------------
Date: Wed, 24 Oct 2001 13:56:11 +0200
From: "Alexander Farber (EED)" <eedalf@eed.ericsson.se>
Subject: What's wrong with File::Find
Message-Id: <3BD6AC5B.FA9A44D4@eed.ericsson.se>
Hi,
I think it lacks a possibility to pass arguments to
the wanted subroutine - like find ({wanted => \&mysub,
args => \@myargs}, '/', '/tmp');
and that's why I have to use global variables or closures - for example
when I'm trying to recursively parse some files and put extracted data
into a data structure - I have to make this data structure global. Or
do I misunderstand something?
Regards
Alex
------------------------------
Date: Wed, 24 Oct 2001 14:03:12 +0200
From: "Sasha" <sasha_lui@yahoo.com>
Subject: Why a new installed Modul is not working
Message-Id: <9r69f5$ldm$1@newstoo.ericsson.se>
Hi all
I recently download and installed an Event module/package. Every step of
instalation is going well and without any error. but when i am calling som
function from the installed Event module or just using that modul, i am
getting error saying :
Can't locate Event.pm in @INC (@INC contains:
/usr/local/lib/perl5/5.6.1/i586-linux /usr/local/lib/perl5/5.6.1
/usr/local/lib/perl5/site_perl/5.6.1/i586-linux
/usr/local/lib/perl5/site_perl/5.6.1 /usr/local/lib/perl5/site_perl .)
at TestEvent.pl line 5.
BEGIN failed--compilation aborted at TestEvent.pl line 5.
I dont know how could i solve this problem.
Thanks Sasha
------------------------------
Date: 24 Oct 2001 12:08:27 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: Why a new installed Modul is not working
Message-Id: <slrn9tdbdo.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Wed, 24 Oct 2001 14:03:12 +0200, Sasha <sasha_lui@yahoo.com> wrote:
> Hi all
>
> I recently download and installed an Event module/package. Every step of
> instalation is going well and without any error. but when i am calling som
> function from the installed Event module or just using that modul, i am
> getting error saying :
>
>
> Can't locate Event.pm in @INC (@INC contains:
> /usr/local/lib/perl5/5.6.1/i586-linux /usr/local/lib/perl5/5.6.1
> /usr/local/lib/perl5/site_perl/5.6.1/i586-linux
> /usr/local/lib/perl5/site_perl/5.6.1 /usr/local/lib/perl5/site_perl .)
> at TestEvent.pl line 5.
> BEGIN failed--compilation aborted at TestEvent.pl line 5.
That means the module was installed into a directory which isn't
recognised by default as a directory potentially containing Perl
modules. You have to figure out where Event.pm was installed and
add the path to that directory either to the @INC array at the
start of your script using, for example,
push @INC, '/dir/with/your/module';
or to the PERL5LIB environment variable, which also contains a list
of paths Perl should search when looking for a module.
Cheers,
Bernard
------------------------------
Date: Wed, 24 Oct 2001 22:37:02 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Why a new installed Modul is not working
Message-Id: <slrn9tddfe.v61.mgjv@martien.heliotrope.home>
On 24 Oct 2001 12:08:27 GMT,
Bernard El-Hagin <bernard.el-hagin@lido-tech.net> wrote:
> On Wed, 24 Oct 2001 14:03:12 +0200, Sasha <sasha_lui@yahoo.com> wrote:
>> Hi all
>>
>> I recently download and installed an Event module/package. Every step of
>> instalation is going well and without any error. but when i am calling som
>> function from the installed Event module or just using that modul, i am
>> getting error saying :
>>
>>
>> Can't locate Event.pm in @INC (@INC contains:
>> /usr/local/lib/perl5/5.6.1/i586-linux /usr/local/lib/perl5/5.6.1
>> /usr/local/lib/perl5/site_perl/5.6.1/i586-linux
>> /usr/local/lib/perl5/site_perl/5.6.1 /usr/local/lib/perl5/site_perl .)
>> at TestEvent.pl line 5.
>> BEGIN failed--compilation aborted at TestEvent.pl line 5.
>
>
> That means the module was installed into a directory which isn't
> recognised by default as a directory potentially containing Perl
> modules.
Not necessarily. I've seen this behaviour when someone has installed the
modules with the wrong permissions: Not readable by the user who is
trying to 'use' them, or not reachable through directory permissions
being off.
> You have to figure out where Event.pm was installed and
> add the path to that directory either to the @INC array at the
> start of your script using, for example,
>
> push @INC, '/dir/with/your/module';
If you 'use' this module, you better make sure to include this in a
BEGIN block, and to do it before you include the module, or even better,
use the lib pragma, which was made especially for this:
use lib 'directory';
Also see the Perl FAQ, section 8.
> or to the PERL5LIB environment variable, which also contains a list
> of paths Perl should search when looking for a module.
A better solution would be to just fix the installation of the module in
the first place: Chack permissions, check location. If location is
wrong, reinstall, and do it correctly this time.
Martien
--
| Since light travels faster than
Martien Verbruggen | sound, isn't that why some people
| appear bright until you hear them
| speak?
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 1998
***************************************
