[28977] in Perl-Users-Digest
Perl-Users Digest, Issue: 221 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 14 03:09:58 2007
Date: Wed, 14 Mar 2007 00:09:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 14 Mar 2007 Volume: 11 Number: 221
Today's topics:
Any daylight saving time issues lately? <BLOCKSPAMwazoo@your-mailbox.com>
Re: Any daylight saving time issues lately? <paduille.4060.mumia.w+nospam@earthlink.net>
Re: Any daylight saving time issues lately? <manojkumargupta@gmail.com>
Re: Equivalent in Perl <tadmc@augustmail.com>
File::Find dies on directory paths which are too long wbeldman@gmail.com
How to release or kill Mechanize session <ldolan@bigpond.net.au>
Importing an hash in a lexical scope <stefano.sabatini-lala@poste.it>
Re: Importing an hash in a lexical scope <uri@stemsystems.com>
Re: invoking system commands from a perl script <joe@inwap.com>
Re: Muhammad, the Messenger of Allah <hjp-usenet2@hjp.at>
new CPAN modules on Wed Mar 14 2007 (Randal Schwartz)
Re: passing passords to pgsql/pg_create/pg_dump program <ben@morrow.me.uk>
patch for Mail::SendEasy <iler.ml@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 13 Mar 2007 18:01:22 -0700
From: Wazoo <BLOCKSPAMwazoo@your-mailbox.com>
Subject: Any daylight saving time issues lately?
Message-Id: <BLOCKSPAMwazoo-A784E2.18011913032007@news.giganews.com>
I support some production systems running a big Perl app. The IT guys
are complaining that there is some vague problem with things being an
hour off. I'm still waiting for more details ... meanwhile are there any
known Perl or CPAN issues with the recent daylight savings time change?
------------------------------
Date: Wed, 14 Mar 2007 02:12:26 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: Any daylight saving time issues lately?
Message-Id: <eSIJh.12612$Jl.9973@newsread3.news.pas.earthlink.net>
On 03/13/2007 08:01 PM, Wazoo wrote:
> I support some production systems running a big Perl app. The IT guys
> are complaining that there is some vague problem with things being an
> hour off. I'm still waiting for more details ... meanwhile are there any
> known Perl or CPAN issues with the recent daylight savings time change?
If your application was running at the moment of the time change, I'd
suspect that almost anything can happen.
Perhaps the databases used by the application now (after the time shift)
have some records that have incorrect times in them. That would probably
be the most difficult thing to deal with.
------------------------------
Date: 13 Mar 2007 23:39:04 -0700
From: "perlguru" <manojkumargupta@gmail.com>
Subject: Re: Any daylight saving time issues lately?
Message-Id: <1173854344.873594.275450@l75g2000hse.googlegroups.com>
On Mar 14, 7:12 am, "Mumia W." <paduille.4060.mumia.w
+nos...@earthlink.net> wrote:
> On 03/13/2007 08:01 PM, Wazoo wrote:
>
> > I support some production systems running a big Perl app. The IT guys
> > are complaining that there is some vague problem with things being an
> > hour off. I'm still waiting for more details ... meanwhile are there any
> > known Perl or CPAN issues with the recent daylight savings time change?
>
> If your application was running at the moment of the time change, I'd
> suspect that almost anything can happen.
>
> Perhaps the databases used by the application now (after the time shift)
> have some records that have incorrect times in them. That would probably
> be the most difficult thing to deal with.
Perl does not maintain any time/timezone related information. It
actually depends on the underlying system.
Check that your system is patched with DST changes.
You can use below script to help your self :-
------------------------- Script to DST changes : 'timetest.pl'
-------------------
use POSIX qw(mktime);
$TimeStampOn12Mar07=mktime(10,10,10,12,2,2007-1900);
$Date12Mar07=localtime($TimeStampOn12Mar07);
$TimeStampOn10Mar07=$TimeStampOn12Mar07 - 24*3600*2;
$Date10Mar07=localtime($TimeStampOn10Mar07);
print "Date time on 10Mar07 : $Date10Mar07\n";
print "Date time on 12Mar07 : $Date12Mar07\n";
exit 0;
------------------------------------------------------------------------------------
And you run below kind of test.
On IST time zone machine :-
--------------------------
]$ perl timetest.pl
Date time on 10Mar07 : Sat Mar 10 10:10:10 2007
Date time on 12Mar07 : Mon Mar 12 10:10:10 2007
On EDT time zone machine (Patched with DST changes) :-
-------------------------------------------------------
]$ perl timetest.pl
Date time on 10Mar07 : Sat Mar 10 10:10:10 2007
Date time on 12Mar07 : Mon Mar 12 11:10:10 2007
...Manoj
------------------------------
Date: Tue, 13 Mar 2007 20:11:12 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Equivalent in Perl
Message-Id: <slrneveitg.21a.tadmc@tadmc30.august.net>
pankaj_wolfhunter@yahoo.co.in <pankaj_wolfhunter@yahoo.co.in> wrote:
> On Mar 13, 2:32 pm, Ian Wilson <scoblo...@infotop.co.uk> wrote:
>> pankaj_wolfhun...@yahoo.co.in wrote:
>> > I tried redirecting using STDERR but just couldnt make it work. What
>> > to put and exactly where?
>>
>> Since you are apparently unable to use Google, I did it for you. I typed
>> in "perl DBI example" and looked at the first item returned. I recommend
>> you get into the habit of using Google.
> Didnt know that I am asking something which is really bugging a lot of
> ppl here.
You didn't know that you were treating a lot of people (not ppl)
with disrespect when you asked your question without trying
even a little bit to answer it yourself first?
I don't see how that outcome could be surprising...
> Next time I gotta be a bit careful
Next time you simply have to respect the time of others.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 13 Mar 2007 11:53:38 -0700
From: wbeldman@gmail.com
Subject: File::Find dies on directory paths which are too long
Message-Id: <1173812018.424041.288380@30g2000cwc.googlegroups.com>
I am trying to traverse the file system on a remote computer from a
Windows machine to report on specific extensions. Here is the source
code:
=====================================
#! C:\Perl\bin\perl.exe -w
####
# This program was generated by 'find2perl' and is slightly tweaked to
suit our needs (on Windows).
# usage is: findext.pl directory extension
# eg. findext.pl \\cluster\itshome doc
eval 'exec C:\Perl\bin\perl.exe -S $0 ${1+"$@"}' if 0; #
$running_under_some_shell
use strict;
use File::Find ();
# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.
# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
*prune = *File::Find::prune;
sub wanted;
if ($#ARGV+1 != 2){
die "Proper usage:\n\t$0 directory ext\n\tdirectory=$ARGV[0] and
extension=$ARGV[1]\n";
}
if (!(-d $ARGV[0])){
die "$ARGV[0] is not a valid directory\n";
}
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, "$ARGV[0]");
exit;
sub wanted {
#Replace \\cluster.../folder/something.mp3 with \\cluster...\folder
\something.mp3
$name =~ s/\//\\/g;
if (/^.*\.$ARGV[1]\z/s){
print "$name\n";
}
}
=====================================
The program works great except when I run into a directory which is
too long. In windows explorer, I can't CD to a path like \\compname
\sharename\directory\{many subdirectories}\directory because I get:
"Can't access this folder Path too long". When I use the above program
it crashes at that point and I get:
=====================================
Can't opendir(\\compname\sharename\directory\{many subdirectories}
\directory): No such file or directory
at D:\Scripts\dev\Send Reports\MP3 Reports\findext.pl line 30
Can't cd to \\compname\sharename\directory\{many subdirectories}
\directory../.. at C:/Perl/lib/File/Find.pm line 896.
=====================================
My question is, how would I get around this problematic directory and
just let my program continue on to all the other directories in that
share?
------------------------------
Date: Tue, 13 Mar 2007 21:19:53 GMT
From: dysgraphia <ldolan@bigpond.net.au>
Subject: How to release or kill Mechanize session
Message-Id: <ZzEJh.10699$8U4.6665@news-server.bigpond.net.au>
I am using scripts like the following to retrieve web data.
After login I use another instance of $mech->get($url) to
get data from links on the retrieved page.
Sometimes I get a login failure which may be due to the page
timing out. Rather than have this happen I decided to deliberately
end each session after a few downloads then do the login again.
If I enclose my script with the statements perl.begin; and perl.end;
this seems to have worked.
My question: Is this the correct way to kill or release a Mechanize session?
Any comments or suggestions welcome...cheers, Peter
#!/user/bin/perl -w
use strict;
use warnings;
use WWW::Mechanize;
use DBI;
use HTTP::Cookies;
use Win32::ODBC;
# Do the login...
my ($url,$username,$password);
$url = 'http://www.xxxxxx.com/login.asp';
$username = "xxxx";
$password = "xxxx";
my $mech = WWW::Mechanize->new(
agent => 'Mozilla/4.0',
cookie_jar => {} );
$mech->get($url);
unless ($mech->success)
{
die "Can't get the login page $url: ",
$mech->response->status_line;
}
$mech->field(p_login => $username);
$mech->field(p_password => $password);
$mech->click();
my $url1 = 'http://www.xxxxxx.com/';
$mech->get($url1);
unless ($mech->success)
{
die "Can't get the login page url1 $url1: ",
$mech->response->status_line;
}
print "Now retrieving: "$url1,"\n";
# The retrieved page may have up to 10 links
# create an array of the links
my @links = $mech->links;
# loop through the links
foreach my $link (@links)
{
my $href = $link->url;
# Retrieve the link text
my $name = $link->text;
print "href: " , $href, "\n" , "name: " , $name , "\n" ;
sleep(3);
}
------------------------------
Date: 13 Mar 2007 18:13:51 GMT
From: Stefano Sabatini <stefano.sabatini-lala@poste.it>
Subject: Importing an hash in a lexical scope
Message-Id: <slrnevdq8t.4pp.stefano.sabatini-lala@santefisi.caos.org>
Hi perl guys,
I would like to import an hash in a lexycal scope, so to be able
to access the values of the hash as they were lexicals variables
defined in the current lexycal scope.
For example I would like to define somewhere an hash like:
my %hash = (one => 1, two => 2, three => 3, four => 4);
and then be able to access the variables $one, $two, $three after
importing them:
{
# import the hash
...
print "One is $one, two is $two, three is $three and so on";
}
I successfully achieved to import an hash into the current package using
this incantation:
foreach (keys %hash) {
*$_ = \$hash{$_};
}
I also tried this:
{
my $keys_str;
foreach (keys %hash) { $keys_str.= "\$$_, " };
# here it evals the code in the evalled code lexycal environment, which is
# (unfortunately) not the current lexycal environment, so the
# lexycal binding is immediately discarded
eval "my ($keys_str)";
no strict;
# this cause the creation of global (package) variables
# and don't warn 'cause of the no strict pragma
foreach (keys %hash) {
eval "\$$_ = $hash{$_};";
}
}
but after some debugging and thinkering I realized it can't work (as
explained in the comments above).
So I'm thinking maybe it's not possible at all to achieve my goal, or
maybe I can't simply see how.
Any help or suggestion will be highly appreciated.
Many cheers
--
Stefano Sabatini
Linux user number 337176 (see http://counter.li.org)
------------------------------
Date: Tue, 13 Mar 2007 13:26:55 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Importing an hash in a lexical scope
Message-Id: <x74popq9sg.fsf@mail.sysarch.com>
>>>>> "SS" == Stefano Sabatini <stefano.sabatini-lala@poste.it> writes:
SS> I would like to import an hash in a lexycal scope, so to be able
SS> to access the values of the hash as they were lexicals variables
SS> defined in the current lexycal scope.
SS> For example I would like to define somewhere an hash like:
SS> my %hash = (one => 1, two => 2, three => 3, four => 4);
SS> and then be able to access the variables $one, $two, $three after
SS> importing them:
SS> {
SS> # import the hash
SS> ...
SS> print "One is $one, two is $two, three is $three and so on";
SS> }
that is a very foolish idea in several ways. first, you can't import
into lexical scope, only into the symbol table. second, the whole point
of hashes is not to have individual variables for each value when they
are related. what you are asking for is symbolic (as i said, lexical
won't even work) references which are a very bad idea.
SS> I successfully achieved to import an hash into the current package using
SS> this incantation:
SS> foreach (keys %hash) {
SS> *$_ = \$hash{$_};
SS> }
was use strict enabled? won't work then.
SS> I also tried this:
SS> {
SS> my $keys_str;
SS> foreach (keys %hash) { $keys_str.= "\$$_, " };
SS> # here it evals the code in the evalled code lexycal environment, which is
SS> # (unfortunately) not the current lexycal environment, so the
SS> # lexycal binding is immediately discarded
SS> eval "my ($keys_str)";
nasty.
SS> no strict;
SS> # this cause the creation of global (package) variables
SS> # and don't warn 'cause of the no strict pragma
SS> foreach (keys %hash) {
SS> eval "\$$_ = $hash{$_};";
SS> }
SS> }
again nasty.
SS> but after some debugging and thinkering I realized it can't work (as
SS> explained in the comments above).
why do you think you need to do this? will it make your code much
cleaner or easier? since you MUST know the names of the hash keys in
advance since you want to refer to them by name (in whatever scope), why
would a general import help? all you save would be typing the name of
the hash.
SS> So I'm thinking maybe it's not possible at all to achieve my goal, or
SS> maybe I can't simply see how.
you can't in a lexical scope. it is dumb in the symbol table.
SS> Any help or suggestion will be highly appreciated.
don't do it at all. use the hash as it is. you won't gain much at all
doing what you want. you may think you do but there are other
ways. since you MUST know the names you will be using, why not just do
this:
my $first = $hash{first} ;
and so on. do that in the tightest scope just before where you use
$first. and if you only use $first one time then don't even do that,
just use the hash.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Tue, 13 Mar 2007 11:55:15 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: invoking system commands from a perl script
Message-Id: <4b2dndvzCOgAbmvYnZ2dnUVZ_s2vnZ2d@comcast.com>
vabby wrote:
> somebody told me , that using system to execute unix
> commands, is the synchronous way of doing it, and using backticks the
> asynchronous way
Both are synchronous unless the shell metacharacter "&" is used for background
execution. Using "&" with backticks is not very useful.
-Joe
------------------------------
Date: Tue, 13 Mar 2007 20:07:28 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Muhammad, the Messenger of Allah
Message-Id: <slrnevdtjg.l2q.hjp-usenet2@yoyo.hjp.at>
On 2007-03-11 23:40, Uri Guttman <uri@stemsystems.com> wrote:
> and is perl muhammad's favorite programming language? i sure hope so!
At least Muhammad's boss liked it: http://www.xkcd.com/c224.html
SCNR,
hp
--
_ | Peter J. Holzer | Blaming Perl for the inability of programmers
|_|_) | Sysadmin WSR | to write clearly is like blaming English for
| | | hjp@hjp.at | the circumlocutions of bureaucrats.
__/ | http://www.hjp.at/ | -- Charlton Wilbur in clpm
------------------------------
Date: Wed, 14 Mar 2007 05:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Mar 14 2007
Message-Id: <JEvp6A.1524@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
ARSperl-1.90
http://search.cpan.org/~jmurphy/ARSperl-1.90/
----
Business-DK-CPR-0.03
http://search.cpan.org/~jonasbn/Business-DK-CPR-0.03/
a danish CPR code generator/validator
----
Business-DK-CVR-0.04
http://search.cpan.org/~jonasbn/Business-DK-CVR-0.04/
a danish CVR (VAT Registration) code generator/validator
----
Business-DK-PO-0.04
http://search.cpan.org/~jonasbn/Business-DK-PO-0.04/
a danish postal order code generator/validator
----
Business-OnlinePayment-3.00_06
http://search.cpan.org/~ivan/Business-OnlinePayment-3.00_06/
Perl extension for online payment processing
----
Catalyst-Action-Firebug-0.01
http://search.cpan.org/~typester/Catalyst-Action-Firebug-0.01/
Catalyst action for embedding Firebug Lite tag
----
Date-Holidays-0.15
http://search.cpan.org/~jonasbn/Date-Holidays-0.15/
a Date::Holidays::* OOP Adapter aggregator
----
Date-Holidays-Abstract-0.05
http://search.cpan.org/~jonasbn/Date-Holidays-Abstract-0.05/
an abstract class for Date::Holidays::* modules
----
Excel-Template-Plus-0.02
http://search.cpan.org/~stevan/Excel-Template-Plus-0.02/
An extension to the Excel::Template module
----
Finance-QuoteHist-1.10
http://search.cpan.org/~msisk/Finance-QuoteHist-1.10/
Perl module for fetching historical stock quotes.
----
GD-Graph-Polar-0.14
http://search.cpan.org/~mrdvt/GD-Graph-Polar-0.14/
Make polar graph using GD package
----
GMail-IMAPD-0.94
http://search.cpan.org/~krs/GMail-IMAPD-0.94/
An IMAP4 gateway to Google's webmail service
----
IO-BufferedSelect-1.0
http://search.cpan.org/~afn/IO-BufferedSelect-1.0/
Line-buffered select interface
----
LaTeX-TOM-0.6
http://search.cpan.org/~schubiger/LaTeX-TOM-0.6/
A module for parsing, analyzing, and manipulating LaTeX documents.
----
MP3-Info-1.22
http://search.cpan.org/~daniel/MP3-Info-1.22/
Manipulate / fetch info from MP3 audio files
----
Mail-ListDetector-1.01
http://search.cpan.org/~mstevens/Mail-ListDetector-1.01/
Perl extension for detecting mailing list messages
----
MooseX-Param-0.01
http://search.cpan.org/~stevan/MooseX-Param-0.01/
Simple role to provide a standard param method
----
Net-Frame-Layer-OSPF-1.00
http://search.cpan.org/~gomor/Net-Frame-Layer-OSPF-1.00/
Open Shortest Path First layer object
----
Net-Libdnet6-0.23
http://search.cpan.org/~gomor/Net-Libdnet6-0.23/
adds IPv6 support to Net::Libdnet
----
POE-Component-MessageQueue-0.1.2
http://search.cpan.org/~dsnopek/POE-Component-MessageQueue-0.1.2/
A POE message queue that uses STOMP for the communication protocol
----
Proc-InvokeEditor-1.01
http://search.cpan.org/~mstevens/Proc-InvokeEditor-1.01/
Perl extension for starting a text editor
----
Process-MaxSize-0.01
http://search.cpan.org/~mschilli/Process-MaxSize-0.01/
Restart processes when they exceed a size limit
----
Sepia-0.66
http://search.cpan.org/~seano/Sepia-0.66/
Simple Emacs-Perl Interface
----
Shell-Perl-0.0008
http://search.cpan.org/~ferreira/Shell-Perl-0.0008/
A read-eval-loop in Perl
----
Shell-Perl-0.0009
http://search.cpan.org/~ferreira/Shell-Perl-0.0009/
A read-eval-loop in Perl
----
Socialtext-WikiTest-0.03
http://search.cpan.org/~lukec/Socialtext-WikiTest-0.03/
----
Test-Simple-0.68
http://search.cpan.org/~mschwern/Test-Simple-0.68/
Basic utilities for writing tests.
----
Test-TAP-HTMLMatrix-0.07
http://search.cpan.org/~gaal/Test-TAP-HTMLMatrix-0.07/
Creates colorful matrix of Test::Harness friendly test run results using Test::TAP::Model.
----
Test-WWW-Selenium-1.12
http://search.cpan.org/~lukec/Test-WWW-Selenium-1.12/
Test applications using Selenium Remote Control
----
Text-CSV-Track-0.4
http://search.cpan.org/~jkutej/Text-CSV-Track-0.4/
module to work with .csv file that stores some value(s) per identificator
----
Tie-FlatFile-Array-0.02
http://search.cpan.org/~mumiaw/Tie-FlatFile-Array-0.02/
Treat a flatfile database as an array of arrays.
----
Tk-PerlMethodList-0.04
http://search.cpan.org/~lamprecht/Tk-PerlMethodList-0.04/
query the Symbol-table for methods (subroutines) defined in a class (package) and its parents.
----
WWW-Scraper-ISBN-Amazon_Driver-0.08
http://search.cpan.org/~barbie/WWW-Scraper-ISBN-Amazon_Driver-0.08/
----
XML-RSS-LibXML-0.30_01
http://search.cpan.org/~dmaki/XML-RSS-LibXML-0.30_01/
XML::RSS with XML::LibXML
----
mocked-0.05
http://search.cpan.org/~lukec/mocked-0.05/
use mocked libraries in unit tests
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Tue, 13 Mar 2007 22:38:32 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: passing passords to pgsql/pg_create/pg_dump programmatically
Message-Id: <8oljc4-099.ln1@osiris.mauzo.dyndns.org>
[pgsql.general trimmed: it doesn't exist]
Quoth "filippo" <filippo2991@virgilio.it>:
> Hello,
>
> I have written a program perl/Tkprogram, based on postgres. For
> maintenance reasons in my program I use these commands:
>
> `dropdb -U postgres -h $BACKUP_SERVER $BACKUP_DATABASE_NAME`;
> `createdb -U postgres -h $BACKUP_SERVER $BACKUP_DATABASE_NAME`;
> `pg_dump -U postgres -h $DATABASE_SERVER $DATABASE_NAME | psql -
> U postgres -h $BACKUP_SERVER $BACKUP_DATABASE_NAME`;
>
> my @psqlOutput = `psql -l -U postgres -h $_`;
>
>
> my program has a graphic interface but whenever I use these command,
> postgres ask for passord in the command line. How can I give these
> commands the right passowrd programmatically or how can I interact
> with these to give the passwords by a graphic box?
Read the manpages for those commands to find the appropriate equivalent
SQL (which exists, in every case: the commands just connect to the DB
and send SQL); then send that using DBI.
Ben
--
Raise your hand if you're invulnerable.
[ben@morrow.me.uk]
------------------------------
Date: 14 Mar 2007 00:01:39 -0700
From: "Yakov" <iler.ml@gmail.com>
Subject: patch for Mail::SendEasy
Message-Id: <1173855699.497820.10820@e1g2000hsg.googlegroups.com>
I fixed something [1] in Mail::SendEasy and I emailed the author but
his email bounces.
How can I submit my patches ?
Yakov
[1] I fixed two things. a) when failed to connect, it returned some
object that is not undef but unusable, and thus without way to check
for failure.
b) when connection to given server failed, it always automatically
tries
to connect to 127.0.0.1. This is not always good, and probably, never
good.
Made it optional.
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 221
**************************************
