[28417] in Perl-Users-Digest
Perl-Users Digest, Issue: 9781 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 29 03:05:50 2006
Date: Fri, 29 Sep 2006 00:05:06 -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 Fri, 29 Sep 2006 Volume: 10 Number: 9781
Today's topics:
failure to build perl 5.8.8 <david.bear@asu.edu>
Re: failure to build perl 5.8.8 <sherm@Sherm-Pendleys-Computer.local>
Re: FTP from Perl script on Windows <rvtol+news@isolution.nl>
Re: FTP from Perl script on Windows <benmorrow@tiscali.co.uk>
Re: FTP from Perl script on Windows <sisyphus1@nomail.afraid.org>
ImageMagick and Perl kjhjhjhjadsasda@urbanhabit.com
Re: ImageMagick and Perl usenet@DavidFilmer.com
Re: Limit FORM mailer submissions to 5 on website, then <mgarrish@gmail.com>
Re: matching date <rvtol+news@isolution.nl>
Re: My first socket question <jl_post@hotmail.com>
Re: My first socket question <DJStunks@gmail.com>
new CPAN modules on Fri Sep 29 2006 (Randal Schwartz)
Perl 64 bit solaris - Strange Errors josephshibu.francis@gmail.com
Re: pod - purpose of L<> directive <thepoet_nospam@arcor.de>
Re: Questions about Inline::C <sisyphus1@nomail.afraid.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 28 Sep 2006 15:50:21 -0700
From: David Bear <david.bear@asu.edu>
Subject: failure to build perl 5.8.8
Message-Id: <1265008.eOg0HXWhMf@teancum>
I am using Suse Linux 9.3. Perl 5.8.6 is the version of perl installed.
However, I have some perl code that a vender gave me that they insist only
works with perl 5.8.8. So i went to install a separate instance of perl. I
changed the prefix to be /work/servers/webenv and ran make. Make bombed
with the error:
`sh cflags "optimize='-O2'" opmini.o` -DPERL_EXTERNAL_GLOB opmini.c
CCCMD = cc -DPERL_CORE -c -fno-strict-aliasing -pipe
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -Wall
cc -L/usr/local/lib -o miniperl \
miniperlmain.o opmini.o libperl.a
libperl.a(pp.o)(.text+0x9033): In function `Perl_pp_int':
pp.c: undefined reference to `floor'
libperl.a(pp.o)(.text+0x9049):pp.c: undefined reference to `ceil'
libperl.a(pp.o)(.text+0x91ea): In function `Perl_pp_sqrt':
pp.c: undefined reference to `sqrt'
libperl.a(pp.o)(.text+0x929b): In function `Perl_pp_log':
pp.c: undefined reference to `log'
libperl.a(pp.o)(.text+0x93d9): In function `Perl_pp_exp':
pp.c: undefined reference to `exp'
libperl.a(pp.o)(.text+0x9439):pp.c: undefined reference to `exp'
libperl.a(pp.o)(.text+0x9799): In function `Perl_pp_cos':
pp.c: undefined reference to `cos'
libperl.a(pp.o)(.text+0x97f9):pp.c: undefined reference to `cos'
libperl.a(pp.o)(.text+0x98f9): In function `Perl_pp_sin':
pp.c: undefined reference to `sin'
libperl.a(pp.o)(.text+0x9959):pp.c: undefined reference to `sin'
libperl.a(pp.o)(.text+0x9b03): In function `Perl_pp_atan2':
pp.c: undefined reference to `atan2'
libperl.a(pp.o)(.text+0xbc60): In function `Perl_pp_modulo':
pp.c: undefined reference to `floor'
libperl.a(pp.o)(.text+0xbc94):pp.c: undefined reference to `floor'
libperl.a(pp.o)(.text+0xbd42):pp.c: undefined reference to `fmod'
libperl.a(pp.o)(.text+0xc2fc): In function `Perl_pp_pow':
pp.c: undefined reference to `pow'
libperl.a(pp_pack.o)(.text+0x207b): In function `S_pack_rec':
pp_pack.c: undefined reference to `floor'
libperl.a(pp_pack.o)(.text+0x20a6):pp_pack.c: undefined reference to `floor'
collect2: ld returned 1 exit status
make: *** [miniperl] Error 1
googling for this yeilds about 65000 hits, so I am hoping someone here might
have seen this and can tell me what might be the issue.
Any pointers? (I mean advice)
--
David Bear
-- let me buy your intellectual property, I want to own your thoughts --
------------------------------
Date: Thu, 28 Sep 2006 20:48:34 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: failure to build perl 5.8.8
Message-Id: <m23babv6ot.fsf@Sherm-Pendleys-Computer.local>
David Bear <david.bear@asu.edu> writes:
> I am using Suse Linux 9.3. Perl 5.8.6 is the version of perl installed.
> However, I have some perl code that a vender gave me that they insist only
> works with perl 5.8.8.
I'd verify their claim. "Not supported" doesn't necessarily mean "Doesn't
work" - quite often it simply means that the supported configurations are
the only ones the vendor has tested.
> changed the prefix to be /work/servers/webenv and ran make. Make bombed
> with the error:
>
> `sh cflags "optimize='-O2'" opmini.o` -DPERL_EXTERNAL_GLOB opmini.c
> CCCMD = cc -DPERL_CORE -c -fno-strict-aliasing -pipe
> -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -Wall
> cc -L/usr/local/lib -o miniperl \
> miniperlmain.o opmini.o libperl.a
> libperl.a(pp.o)(.text+0x9033): In function `Perl_pp_int':
> pp.c: undefined reference to `floor'
Floor() and the other functions you're missing are all in libm, so add "-lm"
to the linker flags.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Fri, 29 Sep 2006 02:10:48 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: FTP from Perl script on Windows
Message-Id: <efhvc9.1go.1@news.isolution.nl>
l v schreef:
> Ivan L:
>> [attribution corrupted]
>>> [attribution corrupted]
>>>> "Cannot connect to host: Net::FTP: Bad protocol 'tcp' at
>>>> ftptest1.pl line 3."
>>>
>>> Check out the file "%windir%\system32\drivers\etc\protocol".
>>
>> There is no "%windir%\system32\drivers\etc\protocol" file on my
>> machine.
>
> s/protocol/services/
The error message was "Bad protocol 'tcp'".
The "services" file contains a list of names for selected port/protocol
combinations.
Ivan, did you understand "%windir%"? It's an environment variable that
has the value "C:\WINNT" on some systems, "C:\Windows" on other systems,
and other values on yet other systems. Go to a command prompt and enter
"set" to get the value on your system.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 28 Sep 2006 21:24:28 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: FTP from Perl script on Windows
Message-Id: <skntu3-nn9.ln1@osiris.mauzo.dyndns.org>
Quoth l v <veatchla@yahoo.com>:
> Ivan L wrote:
> > There is no "%windir%\system32\drivers\etc\protocol" file on my machine.
> >
> > "Dr.Ruud" <rvtol+news@isolution.nl> wrote in
> news:efgir2.1f8.1@news.isolution.nl:
> >
> >> Ivan L schreef:
> >>
> >>> "Cannot connect to host: Net::FTP: Bad protocol 'tcp' at ftptest1.pl
> >>> line 3."
> >> Check out the file "%windir%\system32\drivers\etc\protocol".
>
> s/protocol/services/
Err.. really not. /etc/protocol ne /etc/services; if you don't
understand the difference between them please don't try to correct those
who do.
Ben
--
'Deserve [death]? I daresay he did. Many live that deserve death. And some die
that deserve life. Can you give it to them? Then do not be too eager to deal
out death in judgement. For even the very wise cannot see all ends.'
benmorrow@tiscali.co.uk
------------------------------
Date: Fri, 29 Sep 2006 16:41:43 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: FTP from Perl script on Windows
Message-Id: <451cc139$0$11971$afc38c87@news.optusnet.com.au>
"Ivan L" <ilackic@yahoo.com> wrote in message
news:Xns984C73F311E2Bivanlac@213.191.133.136...
> Hi Sisyphus,
> Unfortunately the result is the same - the message is :
> Cannot connect to host: Net::FTP: Bad protocol 'tcp' at
C:\PROGRA~1\PERLEX~1\Scripts
> \FTPPER~1.PL line 4.
> I copied your script and put my host name...
>
It was my intention that you use that script as is. (You should be able to
connect to that ftp server.)
However, I get the feeling that the other respondents might be pushing you
in a more pertinent direction.
Cheers,
Rob
------------------------------
Date: 28 Sep 2006 16:36:18 -0700
From: kjhjhjhjadsasda@urbanhabit.com
Subject: ImageMagick and Perl
Message-Id: <1159486578.882164.305750@e3g2000cwe.googlegroups.com>
Hi,
Im trying to get ImageMagick working on my VPS. Below code used to work
on a previous VPS, but now all I get written is $file1, never $file2.
Problem is, I dont even know how to debug it... Any clues?
$url="someimage.jpg";
$file1="pathonmyserver/something1.jpg";
$file2="pathonmyserver/something2.jpg";
my $response=LWP::UserAgent->new->get($url,':content_file'=>$file1);
$img=Image::Magick->new;
$img->Read($file1);
$img->Scale(geometry=>'548x308');
$img->Resize(width => 548, height => 308);
$img->Write(filename=>$file2);
undef $img;
Thanks!
------------------------------
Date: 28 Sep 2006 23:28:28 -0700
From: usenet@DavidFilmer.com
Subject: Re: ImageMagick and Perl
Message-Id: <1159511308.928568.284040@i3g2000cwc.googlegroups.com>
kjhjhjhjadsasda@urbanhabit.com wrote:
> on a previous VPS, but now all I get written is $file1, never $file2.
Ummm, that's because you never read or write $file2.
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 28 Sep 2006 18:22:56 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: Limit FORM mailer submissions to 5 on website, then pause until reviewed by webmaster
Message-Id: <1159492976.499986.211830@e3g2000cwe.googlegroups.com>
Lance wrote:
> Thank you Matt.
>
> Your response and suggestions were amazing and well detailed. It's
> given me a lot more to think about and definitely helped me to see the
> bigger picture and protection problems.
>
Happy to help, but please quote context when you reply.
> Although i may not get a large number of posts simultaneously, i will
> need to think about either counting the current sessions or applying a
> lock on a file, as the type of posts could mean that users spend 30
> minutes writing the post before clicking submit. It sounds easier to
> have a script that creates a temporary row in a sessions table as soon
> as the Form Windows is opened. I would need to include a script just
> before that to do a count on the session table. If the count is >= 5,
> then don't display the input form and instead display the message,
> otherwise show the form.
>
You wouldn't lock the file from the time they come to the page until
the time they submit. That would make your application impossible to
use. All I meant is that the file is locked while the transaction to
the database occurs (fraction of a second), so that no other attempts
to submit can happen while that one is in progress. The same can be
done by writing a proper transaction when you submit to your database
so that the table(s) are locked while that update occurs.
I think you have too much faith in the statefulness of web
applications, though. It's a bad idea to try and stop submissions when
you think you might have reached your limit. What if the person loads
the page and then goes away? What if they fill out some of the form and
go away? You'd then need a way to (somewhat arbitrarily) reap the
unused locks you've written to your database, which is an ugly
approach.
There's no nice way to do what you're after, other than to check your
count however you implement it both before displaying and before
accepting (don't forget a spammer who gets the source for your form can
bypass the first count). And that means that some people may get
rejected. It's just a fact of life if you're going to impose a limit
like you want.
> So to avoid being flamed, could I ask if anyone could recommend a good
> place to start and the best programming language to go with? I'll be
> very grateful for any links and additional pointers.
>
Yes, Perl, but that's what you get for asking in a Perl newsgroup. I
doubt that you'll find anything prewritten, because these kinds of
multi-faceted applications tend to be use-specific, so there's no good
way to abstract them into something that anyone could plug in. If
you're looking to write it yourself, you might want to start at
learn.perl.org, otherwise you could look for someone to freelance at
jobs.perl.org.
Matt
------------------------------
Date: Fri, 29 Sep 2006 02:14:16 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: matching date
Message-Id: <efhvlo.a8.1@news.isolution.nl>
it_says_BALLS_on_your forehead schreef:
> Dr.Ruud:
>> joez311:
>>> Can someone help me out with the following pattern match? I want to
>>> match on the date went its formated like mm/dd/yy. I was trying:
>>> /[0,1][0-9]/[0-3][0-9]/[0-9[0-9]/
>>> but my match doesn't seam to work as expected. I think its because
>>> of the / used to split the feilds. Could some one show me the
>>> correct way to pattern match on this?
>>
>> I see a comma that probably shouldn't be there, and a missing "]",
>> and unescaped slashes, which leads to:
>>
>> m~[01][0-9]/[0-3][0-9]/[0-9][0-9]~
>
> one issue with the OP's regex (even after it's been "corrected") is
> that it matches months 13 - 19, and days 32 - 39 (and also day 31 for
> months that don't have that particular day).
That was the main reason for this advice:
>> Check out Regexp::Common
>> http://search.cpan.org/search?module=Regexp::Common
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 28 Sep 2006 15:47:00 -0700
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: My first socket question
Message-Id: <1159483620.560371.309810@h48g2000cwc.googlegroups.com>
Michele Dondi wrote:
>
> Point is, in the *real* application I have in mind, when in server
> mode the program will be doing other stuff as well. To be fair, its
> main purpose will be doing other stuff. The C/S ipc's purpose will be
> exactly of gathering information on how other stuff is being done or
> influence how it is. Thus the actual code may be of the form
>
> while (1) {
> do_stuff;
> ???
> }
>
> where ??? is the code to handle incoming requests. What should
> I put there?
(I'm not sure I quite understand what you're asking, so please
forgive me if I misunderstand.)
If you're asking how to handle a client request while, at the same
time, continue to listen for other clients trying to connect, you might
want to try fork()ing, like this:
# Untested:
while ( my $client=$server->accept ) {
last unless fork; # parent keeps listening; child breaks out
}
# Child process runs this code:
(my $cmd=<$client>) =~ tr/\r\n//d;
my %answer=(foo => "foo: that's what I wanted!");
print $client
$answer{$cmd} || "Unknown command: `$cmd'", "\r\n";
...
That way, the parent process will spawn a new process to take care
of the client's request, leaving the parent process to continue to
listen for more requests.
Disclaimer: I'm not very familiar with sockets myself, so I'm not
sure how well the above code will work (assuming that is what you
wanted in the first place).
Either way, I hope you find something that works for you, Michele.
-- Jean-Luc
--
perl -le "print(pack'B*','0'.unpack'B*',pack'w*',
5592691776,37562575106519616,8746773568,354130435682904)"
------------------------------
Date: 28 Sep 2006 21:35:53 -0700
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: My first socket question
Message-Id: <1159504553.904564.258700@b28g2000cwb.googlegroups.com>
Michele Dondi wrote:
> This is my first C/S socket question, so bear with me if the answer is
> obvious or simple. I want to write a program that behaves like a
> server if called with no arguments and like a client if supplied some,
> sending commands based on those arguments to the server and waiting
> for a reply.
My next client/server script will make use of the Perl Object
Environment. After reading the chapter on POE in _Advanced Perl
Programming_ (2nd Ed) I'm sold - the event driven model seems much
better suited to socket communication.
check out http://poe.perl.org/?Evolution_of_a_POE_Server for a brief
TCP server tutorial.
-jp
------------------------------
Date: Fri, 29 Sep 2006 04:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Sep 29 2006
Message-Id: <J6C7qA.M7p@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.
App-SimpleScan-2.02
http://search.cpan.org/~mcmahon/App-SimpleScan-2.02/
simple_scan's core code
----
BatchSystem-SBS-0.01
http://search.cpan.org/~alexmass/BatchSystem-SBS-0.01/
a Simple Batch System
----
CGI.pm-3.25
http://search.cpan.org/~lds/CGI.pm-3.25/
----
CPAN-Reporter-0.21
http://search.cpan.org/~dagolden/CPAN-Reporter-0.21/
Provides Test::Reporter support for CPAN.pm
----
Config-Format-Ini-0.03
http://search.cpan.org/~ioannis/Config-Format-Ini-0.03/
Reads INI configuration files
----
DJabberd-0.80
http://search.cpan.org/~bradfitz/DJabberd-0.80/
scalable, extensible Jabber/XMPP server.
----
DJabberd-RosterStorage-SQLite-1.00
http://search.cpan.org/~bradfitz/DJabberd-RosterStorage-SQLite-1.00/
store your jabber roster in SQLite
----
Data-Phrasebook-0.26
http://search.cpan.org/~barbie/Data-Phrasebook-0.26/
Abstract your queries!
----
Data-Phrasebook-Loader-YAML-0.06
http://search.cpan.org/~barbie/Data-Phrasebook-Loader-YAML-0.06/
Absract your phrases with YAML.
----
Data-Table-1.50
http://search.cpan.org/~ezdb/Data-Table-1.50/
Data type related to database tables, spreadsheets, CSV/TSV files, HTML table displays, etc.
----
Dir-Split-0.78
http://search.cpan.org/~schubiger/Dir-Split-0.78/
Split files of a directory to subdirectories
----
EekBoek-1.00.01
http://search.cpan.org/~jv/EekBoek-1.00.01/
Bookkeeping software for small and medium-size businesses
----
Encode-IBM-0.05
http://search.cpan.org/~audreyt/Encode-IBM-0.05/
IBM-specific encoding mappings
----
Filter-Crypto-1.18
http://search.cpan.org/~shay/Filter-Crypto-1.18/
Create runnable Perl files encrypted with OpenSSL libcrypto
----
Games-Sudoku-SudokuTk-0.06
http://search.cpan.org/~cguine/Games-Sudoku-SudokuTk-0.06/
Perl extension for Sudoku with Tk
----
Graph-Convert-0.01
http://search.cpan.org/~tels/Graph-Convert-0.01/
Convert between graph formats: Graph and Graph::Easy
----
HTTP-Async-0.04
http://search.cpan.org/~evdb/HTTP-Async-0.04/
process multiple HTTP requests in parallel without blocking.
----
IMAP-Client-0.13
http://search.cpan.org/~conteb/IMAP-Client-0.13/
Advanced manipulation of IMAP services w/ referral support
----
InSilicoSpectro-Databanks-0.0.10
http://search.cpan.org/~alexmass/InSilicoSpectro-Databanks-0.0.10/
parsing protein/nucleotides sequence databanks (fasta, uniprot...)
----
Net-FreeDB-0.08
http://search.cpan.org/~roam/Net-FreeDB-0.08/
Perl interface to freedb server(s)
----
OOPS-0.1008
http://search.cpan.org/~muir/OOPS-0.1008/
Object Oriented Persistent Store
----
SVN-Notify-2.64
http://search.cpan.org/~dwheeler/SVN-Notify-2.64/
Subversion activity notification
----
TM-1.19
http://search.cpan.org/~drrho/TM-1.19/
Topic Maps, Base Class
----
Template-Plugin-ResolveLink-0.01
http://search.cpan.org/~miyagawa/Template-Plugin-ResolveLink-0.01/
Template plugin for HTML::ResolveLink
----
Text-MediawikiFormat-0.04
http://search.cpan.org/~dprice/Text-MediawikiFormat-0.04/
Translate Wiki markup into other text formats
----
Text-MediawikiFormat-0.05
http://search.cpan.org/~dprice/Text-MediawikiFormat-0.05/
Translate Wiki markup into other text formats
----
Tie-Mounted-0.17
http://search.cpan.org/~schubiger/Tie-Mounted-0.17/
Tie a mounted node to an array
----
Tivoli-AccessManager-Admin-1.00
http://search.cpan.org/~mikfire/Tivoli-AccessManager-Admin-1.00/
----
Util-Properties-0.07
http://search.cpan.org/~alexmass/Util-Properties-0.07/
Java.util.properties like class
----
WWW-AA-0.02
http://search.cpan.org/~aruteido/WWW-AA-0.02/
The function to undergo plastic operation on the character string displayed in a browser is possessed though it is a MS P Gothic font of 12 points
----
WebService-KakakuCom-0.03
http://search.cpan.org/~naoya/WebService-KakakuCom-0.03/
Handle WebAPI of kakaku.com.
----
makepatch-2.01
http://search.cpan.org/~jv/makepatch-2.01/
create script to update a source tree
----
swd
http://search.cpan.org/~vidul/swd/
Perl pragma to change the current working directory
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: 28 Sep 2006 19:10:39 -0700
From: josephshibu.francis@gmail.com
Subject: Perl 64 bit solaris - Strange Errors
Message-Id: <1159495839.634311.307450@m7g2000cwm.googlegroups.com>
Gurus,
The attempt to build a 64 bit perl ( 5.8.7 and 5.8.8 ) on solaris 9 (
and also sol 8 ) is getting failed during the compilation process.
The miniperl got generated successfully, however it core dumps while
trying to use the IO::Handle.
while debugging,
./miniperl -Ilib -W -d -e ' use IO::Handle' ;
also dumps the core.
Here is the truss output on this.
open("lib/IO/Handle.pm", O_RDONLY) = 5
ioctl(5, TCGETA, 0xFFFFFFFF7FFFC58C) Err#25 ENOTTY
lseek(5, 0, SEEK_CUR) = 0
brk(0x10028E6C0) = 0
brk(0x1002926C0) = 0
read(5, " p a c k a g e I O : :".., 4096) = 4096
read(5, " r o r\n\n R e t u r n s".., 4096) = 4096
read(5, " m t h a t c l a s s".., 4096) = 4096
brk(0x1002926C0) = 0
brk(0x1002966C0) = 0
getcontext(0xFFFFFFFF7FFFC2A0)
getcontext(0xFFFFFFFF7FFFBF40)
getcontext(0xFFFFFFFF7FFFC2A0)
getcontext(0xFFFFFFFF7FFFBF40)
stat("lib/strict.pmc", 0xFFFFFFFF7FFFBE50) Err#2 ENOENT
open("lib/strict.pm", O_RDONLY) = 6
ioctl(6, TCGETA, 0xFFFFFFFF7FFFB8EC) Err#25 ENOTTY
lseek(6, 0, SEEK_CUR) = 0
brk(0x1002966C0) = 0
brk(0x10029A6C0) = 0
read(6, " p a c k a g e s t r i".., 4096) = 3292
brk(0x10029A6C0) = 0
brk(0x10029E6C0) = 0
brk(0x10029E6C0) = 0
brk(0x1002A26C0) = 0
lseek(6, 598, SEEK_SET) = 598
lseek(6, 0, SEEK_CUR) = 598
close(6) = 0
getcontext(0xFFFFFFFF7FFFC2A0)
getcontext(0xFFFFFFFF7FFFBF40)
stat("lib/Carp.pmc", 0xFFFFFFFF7FFFBE50) Err#2 ENOENT
open("lib/Carp.pm", O_RDONLY) = 6
ioctl(6, TCGETA, 0xFFFFFFFF7FFFB8EC) Err#25 ENOTTY
lseek(6, 0, SEEK_CUR) = 0
read(6, " p a c k a g e C a r p".., 4096) = 4096
read(6, " a n n o t g e t %".., 4096) = 4096
brk(0x1002A26C0) = 0
brk(0x1002A66C0) = 0
brk(0x1002A66C0) = 0
brk(0x1002AA6C0) = 0
read(6, " n e e d t o ( f o r".., 4096) = 648
brk(0x1002AA6C0) = 0
brk(0x1002AE6C0) = 0
brk(0x1002AE6C0) = 0
brk(0x1002B26C0) = 0
read(6, 0x10029F710, 4096) = 0
close(6) = 0
stat("lib/Exporter.pmc", 0xFFFFFFFF7FFFBE50) Err#2 ENOENT
open("lib/Exporter.pm", O_RDONLY) = 6
ioctl(6, TCGETA, 0xFFFFFFFF7FFFB8EC) Err#25 ENOTTY
lseek(6, 0, SEEK_CUR) = 0
read(6, " p a c k a g e E x p o".., 4096) = 4096
brk(0x1002B26C0) = 0
brk(0x1002B66C0) = 0
brk(0x1002B66C0) = 0
brk(0x1002BA6C0) = 0
brk(0x1002BA6C0) = 0
brk(0x1002BE6C0) = 0
brk(0x1002BE6C0) = 0
brk(0x1002C26C0) = 0
brk(0x1002C26C0) = 0
brk(0x1002C66C0) = 0
brk(0x1002C66C0) = 0
brk(0x1002CA6C0) = 0
lseek(6, 2217, SEEK_SET) = 2217
lseek(6, 0, SEEK_CUR) = 2217
close(6) = 0
getcontext(0xFFFFFFFF7FFFC2A0)
getcontext(0xFFFFFFFF7FFFBF40)
stat("lib/Symbol.pmc", 0xFFFFFFFF7FFFBE50) Err#2 ENOENT
open("lib/Symbol.pm", O_RDONLY) = 6
ioctl(6, TCGETA, 0xFFFFFFFF7FFFB8EC) Err#25 ENOTTY
lseek(6, 0, SEEK_CUR) = 0
read(6, " p a c k a g e S y m b".., 4096) = 4096
brk(0x1002CA6C0) = 0
brk(0x1002CE6C0) = 0
getcontext(0xFFFFFFFF7FFFB6B0)
getcontext(0xFFFFFFFF7FFFB350)
brk(0x1002CE6C0) = 0
brk(0x1002D26C0) = 0
Incurred fault #5, FLTACCESS %pc = 0x10007ABE4
siginfo: SIGBUS BUS_ADRALN addr=0x1002D0704
Received signal #10, SIGBUS [default]
siginfo: SIGBUS BUS_ADRALN addr=0x1002D0704
*** process killed ***
Any help is appreciated.
------------------------------
Date: Fri, 29 Sep 2006 08:27:56 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: pod - purpose of L<> directive
Message-Id: <451cbcec$0$17406$9b4e6d93@newsspool2.arcor-online.net>
Ferry Bolhar schrieb:
> Christian Winter:
>
>> As I wrote a few days ago on the same question in the German group,
>> you have to set --podroot and --podpath. Additionally, you may have
>> to set --libpods to include documents with linkable items.
>> pod2html doesn't search the standard perl include paths.
>
> Well, you wrote on the same question twice, and your answer
> didn't help me twice. I played around with --podroot, --podpath
> and --libpods, but got always the same error message.
>
> Perhaps someone has further experience with pod2html and L<>
> directives and can post concrete examples?
Hi Ferry,
to make a concrete example for that:
-------------- test file lala.pod ------------------
=head1 JUSTATEST
This is a test which has a link to L<perlref> that should
explain it.
=cut
-----------------------------------------------------
With that one in the current directory, running pod2html
fails complaining that it can't find perlref.[pod|pm]:
h64183:~ # pod2html --infile lala.pod --outfile lala.html
/usr/bin/pod2html: lala.pod: cannot resolve L<perlref> in paragraph 2.
h64183:~ #
OK, that's as expected. perlred.pod resides in
/usr/lib/perl5/5.8.5/pod/perlref.pod, so I'll give /usr/lib/perl5/5.8.5
as the podroot and directories "." (for the standard .pm files) and
"pod" (for the perlxxxx.pod docs) as podpaths.
h64183:~ # pod2html --podroot=/usr/lib/perl5/5.8.5 \
--podpath=pod:. --infile lala.pod --outfile lala.html
h64183:~ #
It runs without complaint, the only thing leaving a bad taste
is that the generated link isn't at all clean, making an absolute
link like <a href="/pod/perlref.html"> making it neccessary to
set --htmlroot. I'd use "." there as the parameter to get relative
links.
Another one on --podpath: it seems pod2html tries to concatenate
the directories while searching, so swapping the arguments in
the example leads to a quite ugly link of
<a href="/./pod/perlref.html">, thus order does matter.
But seeing from the mail you sent me that you want your solution
to be runnable on different platforms and versions, you might be
better off using Pod::Tree which adds some handy features to the
pod2html functionality (like perl2html searching @INC paths or
Pod::Tree::HTML letting you define your own link mapper).
On my remark about having answered in the german group: that was
just to make sure you haven't missed it and to give any german
speaking writers here a pointer to that discussion.
HTH + Best Greetings
-Chris
------------------------------
Date: Fri, 29 Sep 2006 16:50:06 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Questions about Inline::C
Message-Id: <451cc32f$0$9241$afc38c87@news.optusnet.com.au>
"January Weiner" <january.weiner@gmail.com> wrote in message
.
.
> (I tried to look up the
> definition of Inline_Stack_Push, but I have trouble finding it).
>
I meant to address this in my earlier post (but forgot).
Inline_Stack_Vars and friends are defined in INLINE.h which is a header file
auto-generated by Inline::C. It gets written in the build directory - and
then cleaned up once the compilation has successfully completed (unless you
run with the Config option 'CLEAN_AFTER_BUILD => 0').
Here's what INLINE.h contains (copied from C.pm):
#define Inline_Stack_Vars dXSARGS
#define Inline_Stack_Items items
#define Inline_Stack_Item(x) ST(x)
#define Inline_Stack_Reset sp = mark
#define Inline_Stack_Push(x) XPUSHs(x)
#define Inline_Stack_Done PUTBACK
#define Inline_Stack_Return(x) XSRETURN(x)
#define Inline_Stack_Void XSRETURN(0)
#define INLINE_STACK_VARS Inline_Stack_Vars
#define INLINE_STACK_ITEMS Inline_Stack_Items
#define INLINE_STACK_ITEM(x) Inline_Stack_Item(x)
#define INLINE_STACK_RESET Inline_Stack_Reset
#define INLINE_STACK_PUSH(x) Inline_Stack_Push(x)
#define INLINE_STACK_DONE Inline_Stack_Done
#define INLINE_STACK_RETURN(x) Inline_Stack_Return(x)
#define INLINE_STACK_VOID Inline_Stack_Void
#define inline_stack_vars Inline_Stack_Vars
#define inline_stack_items Inline_Stack_Items
#define inline_stack_item(x) Inline_Stack_Item(x)
#define inline_stack_reset Inline_Stack_Reset
#define inline_stack_push(x) Inline_Stack_Push(x)
#define inline_stack_done Inline_Stack_Done
#define inline_stack_return(x) Inline_Stack_Return(x)
#define inline_stack_void Inline_Stack_Void
Cheers,
Rob
------------------------------
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 V10 Issue 9781
***************************************
