[17832] in Perl-Users-Digest
Perl-Users Digest, Issue: 5252 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 5 00:18:45 2001
Date: Thu, 4 Jan 2001 21:18:21 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <978671901-v9-i5252@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 4 Jan 2001 Volume: 9 Number: 5252
Today's topics:
Web based email <aenh@builder.myweb.nl>
Re: Web based email (Abigail)
Re: Web based email <mischief@velma.motion.net>
What does "Resource temporarily unavailable" mean? <cfkang@my-deja.com>
Re: What does "Resource temporarily unavailable" mean? <michael@NOSPAM.vilain.com>
Re: What does "Resource temporarily unavailable" mean? <dperham@dperham.eng.tvol.net>
Re: What does "Resource temporarily unavailable" mean? <cfkang@my-deja.com>
what does this mean? <igor_aptekar@programmer.net>
Re: what does this mean? (Bernard El-Hagin)
Re: what does this mean? (Rafael Garcia-Suarez)
Re: what does this mean? <igor_aptekar@programmer.net>
what is our? <rberkowi@mitre.org>
Re: what is our? (Kenneth Graves)
Re: what is our? (Tad McClellan)
What's the Best Approach to this? (BUCK NAKED1)
what's up with CPAN shell installs not going to lib pro <nospam@nospam.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 2 Jan 2001 18:02:33 +0100
From: "andre en hennie" <aenh@builder.myweb.nl>
Subject: Web based email
Message-Id: <92t1iu$at1$2@cyan.nl.gxn.net>
Hi there,
We want to provide users of our website with an email address and a account.
So we must build a web based email. Is there someone out there who can help
us with this?. Most scripts are just available when purchaced with a credit
card but we dont have it..(shit)
So help us out will you?...
Thanks
Andre and Hennie
Holland
------------------------------
Date: 3 Jan 2001 16:42:05 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Web based email
Message-Id: <slrn956lit.nmu.abigail@tsathoggua.rlyeh.net>
andre en hennie (aenh@builder.myweb.nl) wrote on MMDCLXXXI September
MCMXCIII in <URL:news:92t1iu$at1$2@cyan.nl.gxn.net>:
:)
:)
:) Hi there,
:)
:) We want to provide users of our website with an email address and a account.
:) So we must build a web based email. Is there someone out there who can help
:) us with this?. Most scripts are just available when purchaced with a credit
:) card but we dont have it..(shit)
:)
:) So help us out will you?...
Do you want the phone number of the sales department of our company?
Abigail
--
my $qr = qr/^.+?(;).+?\1|;Just another Perl Hacker;|;.+$/;
$qr =~ s/$qr//g;
print $qr, "\n";
------------------------------
Date: Wed, 03 Jan 2001 19:39:57 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: Web based email
Message-Id: <t5700dnb45f8f8@corp.supernews.com>
Abigail <abigail@foad.org> wrote:
> andre en hennie (aenh@builder.myweb.nl) wrote on MMDCLXXXI September
> MCMXCIII in <URL:news:92t1iu$at1$2@cyan.nl.gxn.net>:
> :)
> :)
> :) Hi there,
> :)
> :) We want to provide users of our website with an email address and a account.
> :) So we must build a web based email. Is there someone out there who can help
> :) us with this?. Most scripts are just available when purchaced with a credit
> :) card but we dont have it..(shit)
> :)
> :) So help us out will you?...
You could take a look at freshmeat.net which, you should know if you're
in the Internet field, has lots and lots and lots and lots of searchable
links to software of many sorts, free and otherwise.
You could also go to opensource.jaos.org to find one of the easier
Web-based email systems to set up. It runs on Linux regularly and
should run well on any other Unix variant or clone with a standard
Perl. I haven't tried it on Windows, but it should run there, too.
This is the webmail software my company currently offers to nearly
ten thousand customers on three servers (with the webmail interface
itself being housed on just one server). You may notice in the credits
that I have written minor portions of the code that appears in the
later releases. I specified this package for use before writing any
modifications of it, and sent the mods I made for my own use to the
maintainer. It's a fairly straitforward system. I hope the setup is
easy, since I wrote the original code for that. Please let me know
of any problems or suggestions, or let Jason Woodward know.
There are other good webmail systems, not all of them in Perl. Some
offer more features simply because they are further along their
development curve. If all you need, though, is a simple and well-tested
system written in Perl and free to use, then JAOS.ORG's webmail system
might be a good choice. The package atmail looks pretty cool, too, but
I haven't used it in production, having chosen Jason's code instead.
I also looked at SquirrelMail pretty seriously. If multiple language
support is a factor, I know JAOS.ORG's system supports English,
Spanish, French, and Chinese so far although I'm only familiar with
the English interface. I'm not sure of the language support in other
webmail packages.
> Do you want the phone number of the sales department of our company?
My company would be happy to pay me to make any other modifications
to the existing code needed by your company/organization so long as
my company got paid for them. We'd also be happy to accept consulting
fees for the setup, maintenance, or hosting of your webmail solution,
or for teaching someone how to do these things with the software.
As Abigail's terse response might tell you, this isn't so much a Perl
question as much as it is a product question. There are such things
as Mail::POP3Client, NET::POP3, Net:SMTP, MIME::Lite et cetera available
for help writing your own webmail system (or other mail programs) in
Perl. It does help sometimes, though to know what is available under
GPL / Artistic / BSD style licensing before looking at commercial
alternatives or reinventing the wheel yet again. The site freshmeat.net
is a good place to start, and www.linuxberg.com (a service of TUCOWS --
isn't it funny that the people who started out servicing the network
needs of Windows users now push open source?) is another place to look.
Sorry if any of this seems to be a shameless plug. I just mention what
I know. I think it is important to let people know that they don't
have to duplicate work. Remember Larry's three virtues for a programmer.
On a related note, whihc I'll probably post under its own subject as well,
which module would be more desirable to use for writing an email app
I'm currently implementing, Net::POP3 or Mail::POP3Client? This is today's
question for me to answer for myself. I might just use POP3Client by
default since that's what Jason used and I have working code examples
of this client to work from already in production on one of my server
machines.
Chris
--
Christopher E. Stith
Where there's a will, there's a lawyer.
------------------------------
Date: Sun, 31 Dec 2000 20:17:39 GMT
From: Calvin Kang <cfkang@my-deja.com>
Subject: What does "Resource temporarily unavailable" mean?
Message-Id: <92o490$kv8$1@nnrp1.deja.com>
Hi,
I write a TCP socket server with Perl. When I send a string ($_) to
the TCP client using syswrite(), I got an error "Resource temporarily
unavailable". What does that mean? Any suggestion or comment? Thanks
in advance.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Sun, 31 Dec 2000 12:50:55 -0800
From: "Michael Vilain <michael@NOSPAM.vilain.com>"
Subject: Re: What does "Resource temporarily unavailable" mean?
Message-Id: <michael-D03D07.12505531122000@news.nanospace.com>
In article <92o490$kv8$1@nnrp1.deja.com>, Calvin Kang
<cfkang@my-deja.com> wrote:
> Hi,
>
> I write a TCP socket server with Perl. When I send a string ($_) to
> the TCP client using syswrite(), I got an error "Resource temporarily
> unavailable". What does that mean? Any suggestion or comment? Thanks
> in advance.
Look at the logs (access and error) on the server. What's in there?
Perhaps something like "can't fork" or some other system resource
problem?
Report back along with the platform, OS, and configuration of your
server and client. You've asked the equivalent of "my car won't
start" here and we need more info to help.
--
Michael Vilain
Certified Advanced Rolfer(r)
rolfer@vilain.com
http://www.vilain.com
------------------------------
Date: 02 Jan 2001 09:53:30 -0500
From: Doug Perham <dperham@dperham.eng.tvol.net>
Subject: Re: What does "Resource temporarily unavailable" mean?
Message-Id: <81hf3idmz9.fsf@wgate.com>
Calvin Kang <cfkang@my-deja.com> writes:
> Hi,
>
> I write a TCP socket server with Perl. When I send a string ($_) to
> the TCP client using syswrite(), I got an error "Resource temporarily
> unavailable". What does that mean? Any suggestion or comment? Thanks
> in advance.
>
>
> Sent via Deja.com
> http://www.deja.com/
I believe the error number your getting back corresponds to EAGAIN or
EWOULDBLOCK.
You are writing to a non-blocking socket and the whole message could not
be written at that time (because the output buffer is full). You must
wait for the buffer to empty before writing any more. see
perldoc perlipc
perldoc IO::Socket
perldoc IO::Select
--
Doug Perham o{..}o
dperham@wgate.com moo! (oo)___
WorldGate Communications, Inc. (______)\
/ \ / \
------------------------------
Date: Tue, 02 Jan 2001 16:03:58 GMT
From: Calvin Kang <cfkang@my-deja.com>
Subject: Re: What does "Resource temporarily unavailable" mean?
Message-Id: <92su5a$22b$1@nnrp1.deja.com>
Doug,
You are absolutely right. I fixed the problem as I tried to use select
before writing to the socket. Thank you very much for your help.
-Calvin Kang
In article <81hf3idmz9.fsf@wgate.com>,
dperham@wgate.com wrote:
>
>
> Calvin Kang <cfkang@my-deja.com> writes:
>
> > Hi,
> >
> > I write a TCP socket server with Perl. When I send a string ($_) to
> > the TCP client using syswrite(), I got an error "Resource
temporarily
> > unavailable". What does that mean? Any suggestion or comment?
Thanks
> > in advance.
> >
> >
> > Sent via Deja.com
> > http://www.deja.com/
>
> I believe the error number your getting back corresponds to EAGAIN or
> EWOULDBLOCK.
>
> You are writing to a non-blocking socket and the whole message could
not
> be written at that time (because the output buffer is full). You must
> wait for the buffer to empty before writing any more. see
>
> perldoc perlipc
>
> perldoc IO::Socket
>
> perldoc IO::Select
>
> --
> Doug Perham o{..}o
> dperham@wgate.com moo! (oo)___
> WorldGate Communications, Inc. (______)\
> / \ / \
>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 4 Jan 2001 12:53:57 -0000
From: "Igor Aptekar" <igor_aptekar@programmer.net>
Subject: what does this mean?
Message-Id: <3n_46.145786$eT4.10475187@nnrp3.clara.net>
on the line where i do this $cat_list=split("=",$line)
I get the following warning
[Thu Jan 4 12:51:06 2001]
D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl: Use of implicit split
to @_ is deprecated at D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl
line 55.
I am using strict and Carp and -w. What does this mean?
thanks
------------------------------
Date: Thu, 4 Jan 2001 13:03:44 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: what does this mean?
Message-Id: <slrn958t5d.2q0.bernard.el-hagin@gdndev25.lido-tech>
On Thu, 4 Jan 2001 12:53:57 -0000, Igor Aptekar
<igor_aptekar@programmer.net> wrote:
>on the line where i do this $cat_list=split("=",$line)
>I get the following warning
>
>[Thu Jan 4 12:51:06 2001]
>D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl: Use of implicit split
>to @_ is deprecated at D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl
>line 55.
>
>I am using strict and Carp and -w. What does this mean?
Turning on diagnostics (use diagnostics) gives this explanation:
Use of implicit split to @_ is deprecated at ./perl.pl line 6 (#1)
(D deprecated) It makes a lot of work for the compiler when you
clobber a subroutine's argument list, so it's better if you assign
the results of a split() explicitly to an array (or list).
Cheers,
Bernard
--
perl -le '$#="Just another Perl hacker,"; print \Bernard'
------------------------------
Date: Thu, 04 Jan 2001 13:04:56 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: what does this mean?
Message-Id: <slrn958t7q.cfd.rgarciasuarez@rafael.kazibao.net>
Igor Aptekar wrote in comp.lang.perl.misc:
> on the line where i do this $cat_list=split("=",$line)
> I get the following warning
>
> [Thu Jan 4 12:51:06 2001]
> D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl: Use of implicit split
> to @_ is deprecated at D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl
> line 55.
split returns an array, not a scalar. See the documentation for split in
the perlfunc manpage; see also perldiag for the diagnostic message
you're getting.
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Thu, 4 Jan 2001 14:08:57 -0000
From: "Igor Aptekar" <igor_aptekar@programmer.net>
Subject: Re: what does this mean?
Message-Id: <nt%46.145894$eT4.10488224@nnrp3.clara.net>
doh!
thanks
"Rafael Garcia-Suarez" <rgarciasuarez@free.fr> wrote in message
news:slrn958t7q.cfd.rgarciasuarez@rafael.kazibao.net...
> Igor Aptekar wrote in comp.lang.perl.misc:
> > on the line where i do this $cat_list=split("=",$line)
> > I get the following warning
> >
> > [Thu Jan 4 12:51:06 2001]
> > D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl: Use of implicit
split
> > to @_ is deprecated at
D:\Documents\Projects\DrugDev\CategoryAdmin\Main.pl
> > line 55.
>
> split returns an array, not a scalar. See the documentation for split in
> the perlfunc manpage; see also perldiag for the diagnostic message
> you're getting.
>
> --
> # Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Tue, 02 Jan 2001 14:53:58 -0500
From: "Robert L. Berkowitz" <rberkowi@mitre.org>
Subject: what is our?
Message-Id: <3A5231D6.2B953718@mitre.org>
In writing one of my 1st perl scripts (using v5.6) I got a compiler
error saying something to the effect that I needed to use "my" or "our"
when using an array for the first time in my main routine. The code
said use strict and also use diagnostics. I didn't want to use "my"
since I wanted the array to be available in some subroutines. So I
tried "local" but the compiler didn't like that, so I put in "our"
before the array name. My script works, so I am not complaining. But I
would like to know what I did. The 2nd edition of the camel book
doesn't describe "our" -- at least I could not find any description.
Could someone explain what "our" does?
Bob
------------------------------
Date: Tue, 02 Jan 2001 20:02:53 GMT
From: kag@kag.citysource.com (Kenneth Graves)
Subject: Re: what is our?
Message-Id: <slrn954cvd.8k.kag@kag.citysource.com>
In article <3A5231D6.2B953718@mitre.org>, Robert L. Berkowitz wrote:
>Could someone explain what "our" does?
Short answer: it's like "use vars", except it obeys the same scoping
as "my". It declares one or more global ("package") variable(s).
Shorter answer: perldoc -f our
--kag
------------------------------
Date: Tue, 2 Jan 2001 13:39:40 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: what is our?
Message-Id: <slrn95483c.ffa.tadmc@magna.metronet.com>
Robert L. Berkowitz <rberkowi@mitre.org> wrote:
>In writing one of my 1st perl scripts (using v5.6) I got a compiler
>error saying something to the effect
^^^^^^^^^^^^^
Why bother with that. Is your copy/paste function broken
or something? Please include the verbatim text of messages
when you want help understanding messages.
>that I needed to use "my" or "our"
>when using an array for the first time in my main routine.
You shouldn't have left out the message text. Those are not
all of the alternatives that it offers.
"Global symbol "@a" requires explicit package name at ./temp line 5"
Is that the mystery message that you are seeing?
>The code
>said use strict and also use diagnostics. I didn't want to use "my"
>since I wanted the array to be available in some subroutines.
Lexical variables can be used in subroutines, if the subroutines
are in the same file as the declaration (and they must be,
if our() is making them visible).
Use my().
You should always prefer my() over our() unless you know why
you shouldn't.
Did you try it with my()?
>So I
>tried "local" but the compiler didn't like that, so I put in "our"
>before the array name. My script works, so I am not complaining. But I
>would like to know what I did.
You "declared beforehand", one of the fixes suggested by use diagnostics.
Another alternative that you seemed to have missed (but that is good,
because you don't want that case, you want my()) is to use a
explicitly qualified array name, then "use strict" will be happy,
even without a declaration.
@main::array instead of @array
$main::array[2] instead of $array[2]
>The 2nd edition of the camel book
>doesn't describe "our" -- at least I could not find any description.
The 3rd edition covers 5.6.
>Could someone explain what "our" does?
The docs for our() can explain what our() does.
What part are you not following?
perldoc -f our
I recommend reading MJD's "Coping with Scoping" article at:
http://perl.plover.com/FAQs/Namespaces.html
for info on scoping. It also predates our(), so when it talks
about "use vars" think "our()" instead (kinda sorta).
But don't use dynamic variables if you can help it. Use lexical
variables whenever possible.
For the differences between dynamic/lexical scoping, see
the Perl FAQ, part 7:
perldoc -q lexical
"What's the difference between dynamic and lexical (static) scoping?
Between local() and my()?"
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 3 Jan 2001 13:15:10 -0600 (CST)
From: dennis100@webtv.net (BUCK NAKED1)
Subject: What's the Best Approach to this?
Message-Id: <2501-3A537A3E-20@storefull-246.iap.bryant.webtv.net>
I'm writing a webtool on my server for others to use. People will enter
a URL into a textbox, hit Submit, and the URL will be processed, and the
result returned.
Presently, I am using LWP's getstore to store the URL in a named file
called temp/storage (the files contain binary data). However, I want
several users to be able to use the tool simultaneously. Should I use
File/Temp instead to store a different temporary name for each URL
that's input? (BTW, anyway to create temporary directories?)
I am also attempting to limit the size of the file and directory. IOW,
if the contents of the URL are over 1 meg, to exit and print a
message... OR if processing the file will make the directory over 2
megs, I want the program to exit and print a message.
Here's the code that I've written for this part:
### Define the variables
$URL = param("url");
$file = "temp/storage";
$filesize = head($URL);
$dir = "temp";
getstore($URL, $file);
### Directory size
while (glob "$dir*") {
$dirsize += -s $_ ;
}
if ($dirsize > 2024000) {
print "Sorry, but the Directory used for processing is full. Please try
again later\n"; exit();
}
elsif ($filesize[1] > 1024000) {
print "Your file is $filesize[1] bytes.
Sorry, but Files larger than 1 Megabyte are not allowed.\n"; exit();
} ;
The codes above don't seem to work like I want them to. It appears that
I'm storing the file, and then checking the size. Is there a better way
to do this by storing the file in memory instead of in a file, and
checking the size of the file and the directory where I store the
processed results BEFORE the file is stored?
From what I understand after reading LWP/User Agent, it appears to do
this better. Should I be using LWP/UserAgent rather than LWP/Simple's
getstore method? If so, how? LWP/UserAgent.pm tells how "not" to store
the file in memory, but doesn't tell how "to" store it in memory.
Any help would be appreciated. I've researched this for a few months
now.
Regards,
Dennis
------------------------------
Date: 2 Jan 2001 07:39:46 GMT
From: The WebDragon <nospam@nospam.com>
Subject: what's up with CPAN shell installs not going to lib properly?
Message-Id: <92s0k2$8ol$0@216.155.33.34>
PERL5LIB is setenv'd to /home1/users/myname/perl/lib/perl5/site_perl/
I get this:
cpan> install CPAN
Fetching with LWP:
ftp://mirror.nyc.anidea.com/pub/CPAN/authors/01mailrc.txt.gz
Going to read /home1/users/myname/.cpan/sources/authors/01mailrc.txt.gz
Fetching with LWP:
ftp://mirror.nyc.anidea.com/pub/CPAN/modules/02packages.details.txt.gz
Going to read
/home1/users/myname/.cpan/sources/modules/02packages.details.txt.gz
Fetching with LWP:
ftp://mirror.nyc.anidea.com/pub/CPAN/modules/03modlist.data.gz
Going to read /home1/users/myname/.cpan/sources/modules/03modlist.data.gz
Going to write /home1/users/myname/.cpan/Metadata
Running install for module CPAN
Running make for A/AN/ANDK/CPAN-1.59.tar.gz
Checksum for
/home1/users/myname/.cpan/sources/authors/id/A/AN/ANDK/CPAN-1.59.tar.gz
ok
CPAN-1.59/
CPAN-1.59/lib/
CPAN-1.59/lib/CPAN/
CPAN-1.59/lib/CPAN/Nox.pm
CPAN-1.59/lib/CPAN/Admin.pm
CPAN-1.59/lib/CPAN/FirstTime.pm
CPAN-1.59/lib/Bundle/
CPAN-1.59/lib/Bundle/CPAN.pm
CPAN-1.59/lib/CPAN.pm
CPAN-1.59/Todo
CPAN-1.59/ChangeLog
CPAN-1.59/t/
CPAN-1.59/t/loadme.t
CPAN-1.59/t/vcmp.t
CPAN-1.59/MANIFEST
CPAN-1.59/Makefile.PL
CPAN-1.59/cpan
CPAN-1.59/README
Removing previously used /home1/users/myname/.cpan/build/CPAN-1.59
CPAN.pm: Going to build A/AN/ANDK/CPAN-1.59.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for CPAN
mkdir ./blib
mkdir ./blib/lib
mkdir ./blib/arch
mkdir ./blib/arch/auto
mkdir ./blib/arch/auto/CPAN
mkdir ./blib/lib/auto
mkdir ./blib/lib/auto/CPAN
mkdir ./blib/man3
cp lib/CPAN/FirstTime.pm ./blib/lib/CPAN/FirstTime.pm
cp lib/CPAN/Admin.pm ./blib/lib/CPAN/Admin.pm
cp lib/CPAN.pm ./blib/lib/./CPAN.pm
cp lib/Bundle/CPAN.pm ./blib/lib/Bundle/CPAN.pm
cp lib/CPAN/Nox.pm ./blib/lib/CPAN/Nox.pm
Manifying ./blib/man3/CPAN::FirstTime.3
Manifying ./blib/man3/CPAN.3
Manifying ./blib/man3/CPAN::Admin.3
/opt/bin/pod2man: bad option in paragraph 16 of lib/CPAN/Admin.pm:
``-e'' should be [CB]<-e>
Manifying ./blib/man3/Bundle::CPAN.3
Manifying ./blib/man3/CPAN::Nox.3
mkdir ./blib/script
cp cpan ./blib/script/cpan
/bin/perl -I/opt/lib/perl5/sun4-solaris/5.00404 -I/opt/lib/perl5
-MExtUtils::MakeMaker -e "MY->fixin(shift)" ./blib/script/cpan
/opt/gnu/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /bin/perl -I./blib/arch -I./blib/lib
-I/opt/lib/perl5/sun4-solaris/5.00404 -I/opt/lib/perl5 -e 'use
Test::Harness
qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/loadme............Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"}
at blib/lib/CPAN.pm line 2863.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2865.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2867.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2869.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2884.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2924.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3174.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3195.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3196.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3199.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3230.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3231.
Ambiguous use of {make} resolved to {"make"} at blib/lib/CPAN.pm line
4331.
Ambiguous use of {make} resolved to {"make"} at blib/lib/CPAN.pm line
4403.
Ambiguous use of {make} resolved to {"make"} at blib/lib/CPAN.pm line
4432.
Ambiguous use of {description} resolved to {"description"} at
blib/lib/CPAN.pm line 4836.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5244.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5275.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5290.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5353.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5374.
ok
t/vcmp..............Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"}
at blib/lib/CPAN.pm line 2863.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2865.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2867.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2869.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2884.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 2924.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3174.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3195.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3196.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3199.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3230.
Ambiguous use of {PROTOCOL} resolved to {"PROTOCOL"} at blib/lib/CPAN.pm
line 3231.
Ambiguous use of {make} resolved to {"make"} at blib/lib/CPAN.pm line
4331.
Ambiguous use of {make} resolved to {"make"} at blib/lib/CPAN.pm line
4403.
Ambiguous use of {make} resolved to {"make"} at blib/lib/CPAN.pm line
4432.
Ambiguous use of {description} resolved to {"description"} at
blib/lib/CPAN.pm line 4836.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5244.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5275.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5290.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5353.
Ambiguous use of {gzip} resolved to {"gzip"} at blib/lib/CPAN.pm line
5374.
ok
All tests successful.
Files=2, Tests=25, 5 secs ( 3.34 cusr 1.47 csys = 4.81 cpu)
/opt/gnu/bin/make test -- OK
Running make install
Installing /home1/users/myname/perl/lib/perl5//lib/./CPAN/FirstTime.pm
Installing /home1/users/myname/perl/lib/perl5//lib/./CPAN/Admin.pm
Installing /home1/users/myname/perl/lib/perl5//lib/./CPAN/Nox.pm
Installing /home1/users/myname/perl/lib/perl5//lib/./CPAN.pm
Installing /home1/users/myname/perl/lib/perl5//lib/./Bundle/CPAN.pm
Skipping
/home1/users/myname/perl/lib/perl5//man/man3/./CPAN::FirstTime.3
(unchanged)
Skipping /home1/users/myname/perl/lib/perl5//man/man3/./CPAN.3
(unchanged)
Skipping /home1/users/myname/perl/lib/perl5//man/man3/./CPAN::Admin.3
(unchanged)
Skipping /home1/users/myname/perl/lib/perl5//man/man3/./Bundle::CPAN.3
(unchanged)
Skipping /home1/users/myname/perl/lib/perl5//man/man3/./CPAN::Nox.3
(unchanged)
Installing /home1/users/myname/perl/lib/perl5//bin/./cpan
Writing
/home1/users/myname/perl/lib/perl5//lib/sun4-solaris/5.00404/auto/CPAN/.p
acklist
Appending installation info to
/home1/users/myname/perl/lib/perl5//lib/sun4-solaris/5.00404/perllocal.po
d
/opt/gnu/bin/make install -- OK
Aside from all the "ambiguous use of" warnings, (annoying and should be
fixed), why does the install wind up somewhere else?
what am I doing wrong here?
in o conf,
makepl_arg PREFIX=/home1/users/sgodin/perl/lib/perl5/
should be fine, no?
it's annoying as hell to have to do this:
2:25am {1090} alaska:/home1/users/myname> cd perl/lib/perl5
2:25am {1091} alaska:/home1/users/myname/perl/lib/perl5> lf
total 6
drwxr-xr-x 2 myname users 512 Dec 29 03:17 Bundle/
drwx------ 2 myname users 512 Jan 2 02:20 bin/
drwx------ 5 myname users 512 Jan 2 02:20 lib/
drwx------ 3 myname users 512 Dec 29 02:34 man/
drwx------ 14 myname users 512 Jan 2 02:05 site_perl/
drwx------ 3 myname users 512 Dec 29 02:28 sun4-solaris/
2:25am {1094} alaska:/home1/users/myname/perl/lib/perl5> lf lib
total 211
drwxr-xr-x 2 myname users 512 Jan 2 02:20 Bundle/
drwxr-xr-x 2 myname users 512 Jan 2 02:20 CPAN/
-r--r--r-- 1 myname users 199590 Dec 1 00:39 CPAN.pm
drwx------ 3 myname users 512 Jan 2 02:20 sun4-solaris/
2:25am {1095} alaska:/home1/users/myname/perl/lib/perl5> lf site_perl
total 304
drwxr-xr-x 2 myname www 512 Dec 29 17:58 Bundle/
drwxr-xr-x 2 myname www 512 Dec 29 17:58 CGI/
-rw-r--r-- 1 myname www 205635 Sep 13 12:29 CGI.pm
drwxr-xr-x 3 myname www 512 Dec 29 17:58 File/
drwxr-xr-x 2 myname www 512 Dec 29 17:58 HTML/
drwxr-xr-x 4 myname www 512 Dec 29 17:58 HTTP/
drwxr-xr-x 4 myname www 512 Dec 29 17:58 LWP/
-rw-r--r-- 1 myname www 18478 Jun 25 1999 LWP.pm
drwxr-xr-x 2 myname www 512 Dec 29 17:58 MIME/
drwxr-xr-x 3 myname www 512 Dec 29 17:58 Net/
-rw-r--r-- 1 myname users 24613 Nov 5 12:27 Storable.pm
drwxr-xr-x 3 myname www 1024 Dec 29 17:58 URI/
-rw-r--r-- 1 myname www 23971 Aug 16 14:46 URI.pm
drwxr-xr-x 3 myname www 512 Dec 29 17:58 WWW/
drwxr-xr-x 3 myname users 512 Dec 29 02:26 auto/
-rw-r--r-- 1 myname www 7697 Nov 19 1998 lwpcook.pod
drwx------ 3 myname users 512 Dec 29 02:26 sun4-solaris/
2:26am {1099} alaska:/home1/users/myname/perl/lib/perl5> mv lib/CPAN*
site_perl
2:27am {1101} alaska:/home1/users/myname/perl/lib/perl5> lf lib/Bundle/
total 2
-r--r--r-- 1 myname users 1235 Oct 21 03:43 CPAN.pm
2:27am {1102} alaska:/home1/users/myname/perl/lib/perl5> mv
lib/Bundle/CPAN.pm site_perl/Bundle/
2:27am {1103} alaska:/home1/users/myname/perl/lib/perl5> lf
lib/sun4-solaris/
total 1
drwx------ 3 myname users 512 Jan 2 02:20 5.00404/
2:27am {1104} alaska:/home1/users/myname/perl/lib/perl5> lf
lib/sun4-solaris/5.00404/
total 2
drwx------ 3 myname users 512 Jan 2 02:20 auto/
-rw------- 1 myname users 224 Jan 2 02:20 perllocal.pod
2:27am {1105} alaska:/home1/users/myname/perl/lib/perl5> lf
site_perl/sun4-solaris/
total 1
drwxr-xr-x 7 myname users 512 Dec 29 17:59 auto/
2:28am {1107} alaska:/home1/users/myname/perl/lib/perl5> lf sun4-solaris/
total 1
drwx------ 3 myname users 512 Dec 29 02:34 5.00404/
2:28am {1109} alaska:/home1/users/myname/perl/lib/perl5> lf
sun4-solaris/5.00404/
total 2
drwx------ 3 myname users 512 Dec 29 02:34 auto/
-rw------- 1 myname users 449 Dec 29 02:34 perllocal.pod
2:28am {1110} alaska:/home1/users/myname/perl/lib/perl5> lf
sun4-solaris/5.00404/auto/
total 1
drwx------ 2 myname users 512 Dec 29 02:34 CPAN/
Can anyone offer some suggestions as to what's going on here?
perhaps a bug in CPAN ? (aside from all the damned warnings)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 5252
**************************************
