[29760] in Perl-Users-Digest
Perl-Users Digest, Issue: 1003 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 5 06:09:42 2007
Date: Mon, 5 Nov 2007 03:09:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 5 Nov 2007 Volume: 11 Number: 1003
Today's topics:
error running a perl TK programme <hara.acharya@gmail.com>
Forking problem <david.knell@gmail.com>
Re: Forking problem xhoster@gmail.com
Re: Forking problem <ramesh.thangamani@gmail.com>
Re: Forking problem <pfemat@web.de>
hfgh MayaKannaGi@gmail.com
new CPAN modules on Mon Nov 5 2007 (Randal Schwartz)
Re: Removing .cpan Directory <mmccaws@comcast.net>
Re: runaway memory leak with LWP and Fork()ing on Windo <mark.clementsREMOVETHIS@wanadoo.fr>
Re: runaway memory leak with LWP and Fork()ing on Windo sheinrich@my-deja.com
Re: Sorting AofH over hash key(s)... <sfandino@yahoo.com>
Re: Sorting AofH over hash key(s)... <sfandino@yahoo.com>
Re: Weak references are not implemented in the version zigzagdna@yahoo.com
Re: Weak references are not implemented in the version zigzagdna@yahoo.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 05 Nov 2007 08:17:01 -0000
From: king <hara.acharya@gmail.com>
Subject: error running a perl TK programme
Message-Id: <1194250621.032977.185320@e9g2000prf.googlegroups.com>
I have a script as below to be ran in windows.
But whenever I am running this i am getting an error #No -label at C:/
Perl/lib/Tk/Widget.pm line 256#.
Sometimes I am not getting this error also but I am not getting the
output window also. Even if its not showing any error but it also is
not showing the output window.
What can be the problem?
##########################################
#!\c\perl\bin
use strict;
use warnings;
use tk;
my $main=MainWindow->new();
$main->minsize(qw(250 250));
$main->title(" calculator ");
$main->configure (-background=>'cyan');
my $menu_bar=$main->Frame(-relief=>'groove', -borderwidth=>3, -
background=>'purple',)->pack('-side'=>'top', -fill=>'x');
my $file_mb=$menu_bar->Menubutton(-text=>'File', -
background=>'purple', -activebackground=>'cyan', -
foreground=>'white',)->pack(-side=>'left');
$file_mb->command(label=>'Exit', -activebackground =>'magenta',-
command=> sub{$main->destroy});
$file_mb->separator();
my $help_mb=$menu_bar->Menubutton(-text=>'Help', -
background=>'purple', -activebackground=>'cyan', -
foreground=>'white',)->pack(-side=>'right');
$help_mb->command(-Label=>'About', -activebackground=>'magenta',-
command=> \&about_txt);
$help_mb->command(-Label=>'Help', -activebackground=>'magenta',-
command=> \&help_txt);
$help_mb->separator();
my $top=$main->Frame(-background=>'cyan',)->pack(-side=>'top',-
fill=>'X');
my $left1=$top->Frame(-background=>'cyan',)->pack(-
side=>'left',pady=>9,padx=>8);
my $t1=$left1->Label(-text=>'',-background=>'cyan')->pack();
my $t2=$left1->Label(-text=>'BUS',-background=>'cyan')->pack();
my $t3=$left1->Label(-text=>'DEVICE',-background=>'cyan')->pack();
my $t4=$left1->Label(-text=>'FUNCTION',-background=>'cyan')->pack();
my $left2=$top->Frame(-background=>'cyan',)->pack(-side=>'left',-
pady=>2,-padx=>15);
my $pre = $left2->Label (-text=>'Pretax',-background=>'cyan')->pack();
my $pre1=$left2->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $pre2=$left2->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $pre3=$left2->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $left3=$top->Frame(-background=>'cyan',)->pack(-side=>'left',-
pady=>2,-padx=>15);
my $post = $left3->Label (-text=>'posttax',-background=>'cyan')-
>pack();
my $post1=$left3->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $post2=$left3->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $post3=$left3->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $left4=$top->Frame(-background=>'cyan',)->pack(-side=>'left',-
pady=>2,-padx=>15);
my $tax = $left4->Label (-text=>'taxation',-background=>'cyan')-
>pack();
my $tax1=$left4->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $tax2=$left4->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
my $tax3=$left4->Label(-background=>'green', -width=>12, -
borderwidth=>2, -relief=>'sunken')->pack();
MainLoop();
#No -label at C:/Perl/lib/Tk/Widget.pm line 256
####################################################
------------------------------
Date: Sun, 04 Nov 2007 15:35:32 -0800
From: David Knell <david.knell@gmail.com>
Subject: Forking problem
Message-Id: <1194219332.648549.320630@o80g2000hse.googlegroups.com>
Hi -
I've the following bit of code in a scripts:
$SIG{CHLD} = 'IGNORE';
while (1) {
if ($fs->accept("127.0.0.1", $socket)) {
$pid = fork();
last if ((defined($pid)) && ($pid == 0));
}
}
..rest of code..
- roughly speaking, $fs is a thing with a listening socket; the loop
should wait
for connections, fork, the inbound connection is handled by ..rest of
code..
and the loop goes round indefinitely.
What actually happens is that, every now and again (like every few
days) the
main loop exist. No obvious errors appear on the console, and the
child
processes continue to run correctly until they terminate, which
implies that
the parent's not being killed.
As far as I can see, this shouldn't happen - if the fork fails, pid
should be
undefined; if it succeeds, $pid should be non-zero for the parent
process.
Either way, the parent process should go round the loop again.
I'm using perl 5.8.8, running on CentOS 5.0.
Anyone any ideas?
Thanks --
Dave
------------------------------
Date: 05 Nov 2007 03:36:20 GMT
From: xhoster@gmail.com
Subject: Re: Forking problem
Message-Id: <20071104223623.913$Dr@newsreader.com>
David Knell <david.knell@gmail.com> wrote:
> Hi -
>
> I've the following bit of code in a scripts:
> $SIG{CHLD} = 'IGNORE';
> while (1) {
> if ($fs->accept("127.0.0.1", $socket)) {
> $pid = fork();
> last if ((defined($pid)) && ($pid == 0));
> }
> }
> ..rest of code..
>
...
>
> What actually happens is that, every now and again (like every few
> days) the
> main loop exist. No obvious errors appear on the console, and the
> child
> processes continue to run correctly until they terminate, which
> implies that
> the parent's not being killed.
I don't follow. Why does the continuation of the children imply that the
parent was not killed? Killing the parent doesn't automatically kill
the children unless you take pains to make it happen.
Is there evidence that the parent is trying to improperly execute the
child's code, like it would if it fell out of the while loop? (And if not,
would it leave evidence if that were happening?)
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Mon, 05 Nov 2007 01:53:29 -0800
From: rthangam <ramesh.thangamani@gmail.com>
Subject: Re: Forking problem
Message-Id: <1194256409.534939.219560@z24g2000prh.googlegroups.com>
On Nov 5, 8:36 am, xhos...@gmail.com wrote:
> David Knell <david.kn...@gmail.com> wrote:
>
>
>
> > Hi -
>
> > I've the following bit of code in a scripts:
> > $SIG{CHLD} = 'IGNORE';
> > while (1) {
> > if ($fs->accept("127.0.0.1", $socket)) {
> > $pid = fork();
> > last if ((defined($pid)) && ($pid == 0));
> > }
> > }
> > ..rest of code..
>
> ...
>
> > What actually happens is that, every now and again (like every few
> > days) the
> > main loop exist. No obvious errors appear on the console, and the
> > child
> > processes continue to run correctly until they terminate, which
> > implies that
> > the parent's not being killed.
>
> I don't follow. Why does the continuation of the children imply that the
> parent was not killed? Killing the parent doesn't automatically kill
> the children unless you take pains to make it happen.
>
> Is there evidence that the parent is trying to improperly execute the
> child's code, like it would if it fell out of the while loop? (And if not,
> would it leave evidence if that were happening?)
>
> Xho
>
> --
> --------------------http://NewsReader.Com/--------------------
> The costs of publication of this article were defrayed in part by the
> payment of page charges. This article must therefore be hereby marked
> advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
> this fact.
David your code is having the issue. Once you fork the child process
has $pid == 0 and
it is defined so here you are asking to go to last ( come out of the
while loop ) as soon as the
fork is successful.
if ((defined($pid)) && ($pid == 0));
To check if you are in parent process use the code:
(defined($pid) && ($pid > 0))
This code will only work when your fork has failed.
------------------------------
Date: Mon, 05 Nov 2007 11:00:19 +0100
From: Matthias Pfeifer <pfemat@web.de>
Subject: Re: Forking problem
Message-Id: <5p87tkFo3gp2U1@mid.dfncis.de>
rthangam wrote:
> David your code is having the issue. Once you fork the child process
> has $pid == 0 and
> it is defined so here you are asking to go to last ( come out of the
> while loop ) as soon as the
> fork is successful.
I guess that this is just what he had in mind, since, as he said:
> the inbound connection is handled by ..rest of
> code..
parent just sits in the loop forking new childs while the dhilds step
out of the loop handling the connection. I agree with david that this
should work (conceptionally...) but i am a perl-newbee...
matthias
------------------------------
Date: Sun, 04 Nov 2007 23:36:01 -0800
From: MayaKannaGi@gmail.com
Subject: hfgh
Message-Id: <1194248161.340685.268210@z24g2000prh.googlegroups.com>
fhfghgffghfgh
fghgfh
fghgfhghhgfh
------------------------------
Date: Mon, 5 Nov 2007 05:42:17 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Nov 5 2007
Message-Id: <Jr0qIH.4nz@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.
B-Generate-1.11
http://search.cpan.org/~jjore/B-Generate-1.11/
Create your own op trees.
----
Bencode-1.1
http://search.cpan.org/~aristotle/Bencode-1.1/
BitTorrent serialisation format
----
Bencode-1.2
http://search.cpan.org/~aristotle/Bencode-1.2/
BitTorrent serialisation format
----
Bencode-1.3
http://search.cpan.org/~aristotle/Bencode-1.3/
BitTorrent serialisation format
----
Bencode-1.31
http://search.cpan.org/~aristotle/Bencode-1.31/
BitTorrent serialisation format
----
Buffalo-G54-0.03
http://search.cpan.org/~mschilli/Buffalo-G54-0.03/
Limited scraping API for Buffalo WBR2-G54 routers
----
Business-TW-TSIB-CStorePayment-0.02
http://search.cpan.org/~clkao/Business-TW-TSIB-CStorePayment-0.02/
Module for Taishin Bank Convenient Store Payment Management
----
CPAN-1.92_51
http://search.cpan.org/~andk/CPAN-1.92_51/
query, download and build perl modules from CPAN sites
----
CPANPLUS-0.83_08
http://search.cpan.org/~kane/CPANPLUS-0.83_08/
API & CLI access to the CPAN mirrors
----
CPANPLUS-Dist-Mdv-0.2.0
http://search.cpan.org/~jquelin/CPANPLUS-Dist-Mdv-0.2.0/
a cpanplus backend to build mandriva rpms
----
Chart-Math-Axis-1.02
http://search.cpan.org/~adamk/Chart-Math-Axis-1.02/
Implements an algorithm to find good values for chart axis
----
Config-INI-0.010
http://search.cpan.org/~rjbs/Config-INI-0.010/
simple .ini-file format
----
DateTime-Calendar-Japanese-Era-0.08000
http://search.cpan.org/~dmaki/DateTime-Calendar-Japanese-Era-0.08000/
DateTime Extension for Japanese Eras
----
Devel-PerlySense-0.01_25
http://search.cpan.org/~johanl/Devel-PerlySense-0.01_25/
IntelliSense for Perl
----
Digest-CRC-0.13
http://search.cpan.org/~olimaul/Digest-CRC-0.13/
Generic CRC functions
----
Email-Send-Gmail-0.31
http://search.cpan.org/~lbrocard/Email-Send-Gmail-0.31/
Send Messages using Gmail
----
File-DesktopEntry-0.03
http://search.cpan.org/~pardus/File-DesktopEntry-0.03/
Object to handle .desktop files
----
File-DesktopEntry-0.04
http://search.cpan.org/~pardus/File-DesktopEntry-0.04/
Object to handle .desktop files
----
File-ExtAttr-1.06
http://search.cpan.org/~richdawe/File-ExtAttr-1.06/
Perl extension for accessing extended attributes of files
----
File-Path-2.03
http://search.cpan.org/~dland/File-Path-2.03/
Create or remove directory trees
----
HTML-Feature-2.0.3
http://search.cpan.org/~miki/HTML-Feature-2.0.3/
Extract Feature Sentences From HTML Documents
----
IO-CaptureOutput-1.04_03
http://search.cpan.org/~dagolden/IO-CaptureOutput-1.04_03/
capture STDOUT and STDERR from Perl code, subprocesses or XS
----
IO-Socket-Telnet-0.02
http://search.cpan.org/~sartak/IO-Socket-Telnet-0.02/
transparent telnet negotiation for IO::Socket::INET
----
Moose-Tiny-0.0.2
http://search.cpan.org/~perigrin/Moose-Tiny-0.0.2/
Why Should Object::Tiny get all the Fun
----
Net-SIP-0.38
http://search.cpan.org/~sullr/Net-SIP-0.38/
Framework SIP (Voice Over IP, RFC3261)
----
Parse-Marpa-0.001_032
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_032/
Jay Earley's general parsing algorithm with LR(0) precomputation
----
Term-UI-0.18
http://search.cpan.org/~kane/Term-UI-0.18/
Term::ReadLine UI made easy
----
Test-Harness-2.99_08
http://search.cpan.org/~andya/Test-Harness-2.99_08/
Run Perl standard test scripts with statistics
----
Test-Lazy-0.060
http://search.cpan.org/~rkrimen/Test-Lazy-0.060/
A quick and easy way to compose and run tests with useful output.
----
Text-CSV-0.99_03
http://search.cpan.org/~makamaka/Text-CSV-0.99_03/
comma-separated values manipulator (using XS or PurePerl)
----
Text-Template-Simple-0.49_02
http://search.cpan.org/~burak/Text-Template-Simple-0.49_02/
Simple text template engine
----
Tk-Tree-4.72
http://search.cpan.org/~srezic/Tk-Tree-4.72/
Create and manipulate Tree widgets
----
URI-ParseSearchString-More-0.05
http://search.cpan.org/~oalders/URI-ParseSearchString-More-0.05/
Extract search strings from more referrers.
----
WWW-Myspace-FriendAdder-0.15
http://search.cpan.org/~oalders/WWW-Myspace-FriendAdder-0.15/
Interactively add friends to your Myspace account
----
WWW-UsePerl-Journal-0.18
http://search.cpan.org/~barbie/WWW-UsePerl-Journal-0.18/
A use.perl.org journal tool
----
X10-Home-0.03
http://search.cpan.org/~mschilli/X10-Home-0.03/
Configure X10 for your Home
----
XML-Bare-0.21
http://search.cpan.org/~codechild/XML-Bare-0.21/
Minimal XML parser implemented via a C state engine
----
ack-1.70
http://search.cpan.org/~petdance/ack-1.70/
grep-like text finder
----
self-0.12
http://search.cpan.org/~gugod/self-0.12/
Provides "self" and "args" keywords in your OO program.
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: Sun, 04 Nov 2007 09:10:50 -0800
From: mmccaws2 <mmccaws@comcast.net>
Subject: Re: Removing .cpan Directory
Message-Id: <1194196250.316546.9690@i13g2000prf.googlegroups.com>
On Nov 3, 2:28 pm, Sherman Pendley <spamt...@dot-app.org> wrote:
> mmccaws2 <mmcc...@comcast.net> writes:
> > It looks like there is some setting to make sure non sudo users can't
> > use perl -MCPAN -e shell
>
> There is no such thing. You need root privileges if you're installing
> modules in a directory for which such privs are needed - but that has
> nothing at all to do with CPAN.
>
> sherm--
>
> --
> Web Hosting by West Virginians, for West Virginians:http://wv-www.net
> Cocoa programming in Perl:http://camelbones.sourceforge.net
Thanks
I realize i keep calling it a shell, only since it gives you a 'shell'
like prompt (>). So I'm obviously calling it a shell is incorrect.
Once perl was rebuilt, this is hpux so I think what was actually done
was the latest Perl binary version for that OS version was installed,
my .cpan directory was unchanged, as you would expect. So I still got
error messages using $perl -MCPAN -e shell similar to those posted
before and then bumped out to the normal Posix shell. Now since my
cpan configuration hadn't changed and my perl installation did, the
next thing that I could figure was it had something to do with my
configuration. So, I ask the community, then blew away my cpan.pm.
I've reinstalled the modules I needed and I'm back enjoying putting
together my programs.
I realize that now I have a new perl installation I can't go back to
analyze what went wrong. Can you suggest how cpan.pm could lock up my
access to perl -MCPAN -e shell? Should I be looking for other
problems developing??
let me know.
Mike
------------------------------
Date: Sun, 04 Nov 2007 17:39:08 +0100
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: runaway memory leak with LWP and Fork()ing on Windows
Message-Id: <472df5c4$0$5108$ba4acef3@news.orange.fr>
sheinrich@my-deja.com wrote:
> Without delving too deep into your problem I think you could give a
> try to my attached module PreforkAgent.pm.
> It was made for very much the same task - stress testing a website in
> fact.
>
<snip>
> Because I never tried it in Windows I'd be delighted to hear how you
> fare.
<snip>
You might like to consider packaging it up and releasing it on CPAN.
This would make it much more likely that you will receive feedback :)
Mark
------------------------------
Date: Mon, 05 Nov 2007 03:05:30 -0800
From: sheinrich@my-deja.com
Subject: Re: runaway memory leak with LWP and Fork()ing on Windows
Message-Id: <1194260730.316859.243700@50g2000hsm.googlegroups.com>
>
> <snip>
>
> You might like to consider packaging it up and releasing it on CPAN.
> This would make it much more likely that you will receive feedback :)
>
> Mark
You are absolutely right.
But then I will have to bother with CPAN packaging and submission.
Which is something I never felt to have the time for. ;-)
Cheers, Steffen
------------------------------
Date: Mon, 05 Nov 2007 10:02:59 +0100
From: Salvador Fandino <sfandino@yahoo.com>
To: /usr/ceo <newsbot@cox.net>
Subject: Re: Sorting AofH over hash key(s)...
Message-Id: <472EDC43.3050901@yahoo.com>
/usr/ceo wrote:
> I've searched this NG, the web, and CPAN and haven't seen anything to
> do this, and while I have a solution, I'm wondering what other
> solutions might be living inside some other pretty brilliant brain
> cages here on c.l.p.m...
>
> The problem seems fairly straight-forward: I want to be able to sort
> an Array of Hashes by an arbitrary number of hash keys. For instance,
> given this hash:
...
> Anyone got something different/better? A mod to recommend that I am
> not seeing on CPAN?
You can use Sort::Key or Sort::Maker from CPAN to do that:
For instance, to sort by color then by width:
use Sort::Key::Multi qw(si_keysort);
# si_ stands for string + integer
# is like saying use 'cmp' to compare the first key
# and '<=>' for the second
my @sorted = si_keysort { $_->{color}, $_->{width} } @$h;
You can even generate the sorter function dynamically:
use Sort::Key qw(multikeysorter);
# define how the different data properties have to be compared:
my %sorting_types = (color => 'string',
size => 'integer',
width => 'integer',
height => 'integer');
my @order = qw(color size width); # change to suit your needs;
my @sorting_types = map $sorting_types{$_}, @order;
my $sorter = multikeysorter(sub {
@{$_}{@order} # that's a hash slice...
},
@sorting_types);
my $sorted_data = $sorter->(@data);
Cheers,
- Salva
------------------------------
Date: Mon, 05 Nov 2007 10:03:21 +0100
From: Salvador Fandino <sfandino@yahoo.com>
Subject: Re: Sorting AofH over hash key(s)...
Message-Id: <fgmm8p$8j6$2@hefestos.uned.es>
/usr/ceo wrote:
> I've searched this NG, the web, and CPAN and haven't seen anything to
> do this, and while I have a solution, I'm wondering what other
> solutions might be living inside some other pretty brilliant brain
> cages here on c.l.p.m...
>
> The problem seems fairly straight-forward: I want to be able to sort
> an Array of Hashes by an arbitrary number of hash keys. For instance,
> given this hash:
...
> Anyone got something different/better? A mod to recommend that I am
> not seeing on CPAN?
You can use Sort::Key or Sort::Maker from CPAN to do that:
For instance, to sort by color then by width:
use Sort::Key::Multi qw(si_keysort);
# si_ stands for string + integer
# is like saying use 'cmp' to compare the first key
# and '<=>' for the second
my @sorted = si_keysort { $_->{color}, $_->{width} } @$h;
You can even generate the sorter function dynamically:
use Sort::Key qw(multikeysorter);
# define how the different data properties have to be compared:
my %sorting_types = (color => 'string',
size => 'integer',
width => 'integer',
height => 'integer');
my @order = qw(color size width); # change to suit your needs;
my @sorting_types = map $sorting_types{$_}, @order;
my $sorter = multikeysorter(sub {
@{$_}{@order} # that's a hash slice...
},
@sorting_types);
my $sorted_data = $sorter->(@data);
Cheers,
- Salva
------------------------------
Date: Sun, 04 Nov 2007 04:58:43 -0800
From: zigzagdna@yahoo.com
Subject: Re: Weak references are not implemented in the version of perl at /tmp/replacebinary/Getopt/LL/DLList/Node.pm line 11
Message-Id: <1194181123.097959.302560@z9g2000hsf.googlegroups.com>
On Nov 4, 1:01 am, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth zigzag...@yahoo.com:
>
> > On my UNIX Server, perl 5.8.0 in installed. When I enter command:
> > perl -X -U plbsed.pl
> > I get following error:
> > Weak references are not implemented in the version of perl at /tmp/
> > replacebinary/Getopt/LL/DLList/Node.pm line 11
> > BEGIN failed--compilation aborted at /tmp/replacebinary/Getopt/LL/
> > DLList/Node.pm line 11.
> > Compilation failed in require at /tmp/replacebinary/Getopt/LL/
> > DLList.pm line 11.
>
> > I do not know how to suppress this error despite reaidng many artcles
> > on google.
>
> You need to install the XS version of Scalar::Util. Make sure you have a
> compiler installed, and that it is the one used to build your perl (if
> it isn't, you will need to rebuild perl with this compiler), and then
> reinstall Scalar::Util from CPAN.
>
> Ben
Soory, my knowelege of Perl is so so. How does on einstall XS version
of Scalar::Util. I had gone to CPAN and dowloaded Scalar-List-
Utils-1.19/lib/Scalar/Util.pm.
I ma not HP UNIX 11.11 on Itanium 64. Perl is installed as root, so I
cannot change it. How does
one find what compiler perl was used to compile installed version and
how does one install XS version of Source::Util.
------------------------------
Date: Sun, 04 Nov 2007 07:20:08 -0800
From: zigzagdna@yahoo.com
Subject: Re: Weak references are not implemented in the version of perl at /tmp/replacebinary/Getopt/LL/DLList/Node.pm line 11
Message-Id: <1194189608.124271.231440@o3g2000hsb.googlegroups.com>
On Nov 4, 7:58 am, zigzag...@yahoo.com wrote:
> On Nov 4, 1:01 am, Ben Morrow <b...@morrow.me.uk> wrote:
>
>
>
>
>
> > Quoth zigzag...@yahoo.com:
>
> > > On my UNIX Server, perl 5.8.0 in installed. When I enter command:
> > > perl -X -U plbsed.pl
> > > I get following error:
> > > Weak references are not implemented in the version of perl at /tmp/
> > > replacebinary/Getopt/LL/DLList/Node.pm line 11
> > > BEGIN failed--compilation aborted at /tmp/replacebinary/Getopt/LL/
> > > DLList/Node.pm line 11.
> > > Compilation failed in require at /tmp/replacebinary/Getopt/LL/
> > > DLList.pm line 11.
>
> > > I do not know how to suppress this error despite reaidng many artcles
> > > on google.
>
> > You need to install the XS version of Scalar::Util. Make sure you have a
> > compiler installed, and that it is the one used to build your perl (if
> > it isn't, you will need to rebuild perl with this compiler), and then
> > reinstall Scalar::Util from CPAN.
>
> > Ben
>
> Soory, my knowelege of Perl is so so. How does on einstall XS version
> of Scalar::Util. I had gone to CPAN and dowloaded Scalar-List-
> Utils-1.19/lib/Scalar/Util.pm.
>
> I ma not HP UNIX 11.11 on Itanium 64. Perl is installed as root, so I
> cannot change it. How does
> one find what compiler perl was used to compile installed version and
> how does one install XS version of Source::Util.- Hide quoted text -
>
> - Show quoted text -
I ot past that error but I have new problems. Problem I am having is
plbsed.pl is that plbsed refers to so many other files which refer to
other files, so it is not clear what all othre Perl files are
required. Is there a way to install complete set of files for plbsed
to work.
------------------------------
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 1003
***************************************
