[32113] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 3378 Volume: 11

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 9 11:09:26 2011

Date: Mon, 9 May 2011 08:09:09 -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           Mon, 9 May 2011     Volume: 11 Number: 3378

Today's topics:
    Re: FAQ flood MUST end <hjp-usenet2@hjp.at>
        fcntl/ $$ oddity <rweikusat@mssgmbh.com>
    Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <tzz@lifelogs.com>
    Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <peter@makholm.net>
    Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <jondk@FAKE.EMAIL.net>
    Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <tzz@lifelogs.com>
    Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <tzz@lifelogs.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Sat, 7 May 2011 10:00:03 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: FAQ flood MUST end
Message-Id: <slrnis9v04.dik.hjp-usenet2@hrunkner.hjp.at>

On 2011-05-04 16:33, John Bokma <john@castleamber.com> wrote:
> brian d foy <brian.d.foy@gmail.com> writes:
>>
[...]
> Recently updated can be determined by version control?  Maybe if a
> recently updated (say last 3 months) entry is posted, put a marker in
> the subject?
>
[...]
>> I've been surprised at the corrections I've received for answers that I
>> thought would never change, and I wouldn't want to lose out on that.
>>
>> I am keeping a list of candidates for deletion from the FAQ though. If
>
> Maybe moving the outdated ones to a separate "outdated" FAQ. I do think
> the variable suicide entry is still good to know about (I do now and
> then help customers running on very antique Perl),

You should always use the documentation of the Perl version you are
actually using. To help your customers with a Perl 5.4 problem you
should look into the FAQ of Perl 5.4, not the FAQ of Perl 5.12. A new
FAQ will contain too many answers which don't work with the old
versions. I've seen several entries evolve from

    Use method A

to

    Use method A.
    If you have perl version N or newer, you can use method B

to

    Use method B.
    If you use an older version than N, you can use method A.

to

    Use method B.

over the years.


> but not to be posted here.

I disagree. The entire FAQ should be posted here. If something isn't
worth to be posted any more, it isn't worth be kept in the FAQ.

But I do agree that it would be helpful to mark new or recently changed
entries. Maybe include the date of the last change in the subject?

	hp



------------------------------

Date: Mon, 09 May 2011 15:40:33 +0100
From: Rainer Weikusat <rweikusat@mssgmbh.com>
Subject: fcntl/ $$ oddity
Message-Id: <87oc3cgcny.fsf@sapphire.mobileactivedefense.com>

This text is supposed to document an oddity in the perl fcntl
implementation which cropped up in a program I wrote as part of my job
that puzzled me for a while.

The mini perl script included below is supposed to tell the kernel
that the current process is supposed to receive asynchronous I/O
notification signals for the file descriptor belonging to the created
socket.

-------------------
use Fcntl;
use Socket;

socket($sk, AF_UNIX, SOCK_STREAM, 0) or die("$!");
print STDERR ("$$\n");
fcntl($sk, F_SETOWN, $$) or die("$!");
-------------------

When trying to execute this on Debian 6.0.1/ perl 5.10.1, the
fcntl-call aborts with the following error message:

[rw@sapphire]/tmp $perl a.pl 
23000
Modification of a read-only value attempted at a.pl line 6.

The reason for this is that the print which preceded the fcntl caused
the value of $$ to be stringified, meaning, it is now SvPOK. The error
is actually caused (AFAIK) by the following code in pp_sys.c:

PP(pp_ioctl)
{

[...]

	if (SvPOK(argsv) || !SvNIOK(argsv)) {
		STRLEN len;
		STRLEN need;
		s = SvPV_force(argsv, len);
		need = IOCPARM_LEN(func);
		if (len < need) {
			s = Sv_Grow(argsv, need + 1);
			SvCUR_set(argsv, need);
		}

		s[SvCUR(argsv)] = 17;   /* a little sanity check here */
	}

A workaround is to add 0 to $$ which causes a new sv to be
created that has just an integer value. One could argue that
the SvPOK(argsv) || !SvNIOK(argsv) should rather be
!SvNIOK(argsv) only.


------------------------------

Date: Mon, 09 May 2011 08:25:01 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.9 $)
Message-Id: <87d3jsgg5u.fsf@lifelogs.com>

On Fri, 06 May 2011 14:14:55 -0400 Jon Du Kim <jondk@FAKE.EMAIL.net> wrote: 

JDK> Keep up the good	     | I am going to side-post now.
JDK> fight. Eventually I am  |
JDK> sure you and the other  | It certainly seems more effective than
JDK> mouth breathing mutants | debating this kind of nonsense.
JDK> here will turn the tide |
JDK> in the war against top  | Plus, it will annoy *everyone*.
JDK> posting.  I am sure     |
JDK> you'll win in the end.  | Ted


------------------------------

Date: Mon, 09 May 2011 15:43:12 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.9 $)
Message-Id: <871v08gfbj.fsf@vps1.hacking.dk>

Jon Du Kim wrote:      | Ted Zlantanov writes: |

JDK> Keep up the       | I am going to         | A very original
JDK> good fight.       | side-post now.        | proposal. But in the
JDK> Eventually I am   |                       | end I'm not sure
JDK> sure you and      | It certainly seems    | that it will scale 
JDK> the other mouth   | more effective        | very well.
JDK> breathing mutants | than debatting this   |
JDK> here will turn    | kind of nonsense.     | But we shouldn't
JDK> tide in the war   |                       | disregard the idea
JDK> against top       | Plus, it will annoy   | without testing.
JDK> posting. I am     | *everyone*            |
JDK> sure you'll win   |                       |
JDK> in the end        | Ted                   | //Makholm



------------------------------

Date: Mon, 09 May 2011 10:17:27 -0400
From: Jon Du Kim <jondk@FAKE.EMAIL.net>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.9 $)
Message-Id: <45e4b$4dc7f778$ce534406$15246@news.eurofeeds.com>

On 5/9/2011 9:43 AM, Peter Makholm wrote:
> Jon Du Kim wrote:      | Ted Zlantanov writes: |
>
> JDK>  Keep up the       | I am going to         | A very original          |I think that the
> JDK>  good fight.       | side-post now.        | proposal. But in the    | replies should go
> JDK>  Eventually I am   |                       | end I'm not sure              | right to left
> JDK>  sure you and      | It certainly seems    | that it will scale         |instead of left to right
> JDK>  the other mouth   | more effective        | very well.                 | so as to not offend
> JDK>  breathing mutants | than debatting this   |                              | people whose native
> JDK>  here will turn    | kind of nonsense.     | But we shouldn't       | language is Hebrew
> JDK>  tide in the war   |                       | disregard the idea              |
> JDK>  against top       | Plus, it will annoy   | without testing.            |
> JDK>  posting. I am     | *everyone*            |                                   |
> JDK>  sure you'll win   |                       |                                           |
> JDK>  in the end        | Ted                   | //Makholm                     | Your Pal, jdk.
>



------------------------------

Date: Mon, 09 May 2011 09:29:43 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.9 $)
Message-Id: <87zkmweylk.fsf@lifelogs.com>

On Mon, 09 May 2011 15:43:12 +0200 Peter Makholm <peter@makholm.net> wrote: 

PM> Jon Du Kim wrote:  | Ted Zlantanov writes: | Peter Makholm wrote:
JDK> Keep up the       | I am going to         | A very original      | I asked the Gnus developers
JDK> good fight.       | side-post now.        | proposal. But in the | to see if this was easy to
JDK> Eventually I am   |                       | end I'm not sure     | provide within Gnus, so all
JDK> sure you and      | It certainly seems    | that it will scale   | users could enjoy side-posting
JDK> the other mouth   | more effective        | very well.           | or side-quoting, whatever it
JDK> breathing mutants | than debatting this   |                      | may be called.  I'll also look
JDK> here will turn    | kind of nonsense.     | But we shouldn't     | at writing the necessary code
JDK> tide in the war   |                       | disregard the idea   | since, after all, the only
JDK> against top       | Plus, it will annoy   | without testing.     | reason to use Gnus is because
JDK> posting. I am     | *everyone*            |                      | you like to tinker.  Stay tuned.
JDK> sure you'll win   |                       |                      |
JDK> in the end        | Ted                   | //Makholm            | Ted


------------------------------

Date: Mon, 09 May 2011 09:36:16 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.9 $)
Message-Id: <87vcxkeyan.fsf@lifelogs.com>

>> Jon Du Kim wrote:   | Ted Zlantanov writes: | Peter Makholm wrote:     | Jon Du Kim wrote:
JDK> Keep up the       | I am going to         | A very original          |I think that the           | Erm, is your "ragged"
JDK> good fight.       | side-post now.        | proposal. But in the    | replies should go          | followup style for
JDK> Eventually I am   |                       | end I'm not sure              | right to left        | Gypsies then?
JDK> sure you and      | It certainly seems    | that it will scale         |instead of left to right |
JDK> the other mouth   | more effective        | very well.                 | so as to not offend     | Ted
JDK> breathing mutants | than debatting this   |                              | people whose native   |
JDK> here will turn    | kind of nonsense.     | But we shouldn't       | language is Hebrew          |
JDK> tide in the war   |                       | disregard the idea              |                    |
JDK> against top       | Plus, it will annoy   | without testing.            |                        |
JDK> posting. I am     | *everyone*            |                                   |                  |
JDK> sure you'll win   |                       |                                           |          |
JDK> in the end        | Ted                   | //Makholm                     | Your Pal, jdk.       |


------------------------------

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:

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests. 

#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 3378
***************************************


home help back first fref pref prev next nref lref last post