Japh

This may be VERY platform dependent. If it works then your version of perl is as broken as mine.

$SIG{__DIE__} =sub{$_
[0]=~/(.).{14}(.)(.).
{4}(.)/x;die"$1$3$2$4
"};/(?{\/\/})/
[download]

EDIT: Please don't downvote because of the phrase "platform dependent", the purpose of this node was a mildly obfuscated way to see if the broken behaviour of /(?{\/\/})/ was an ActivePerl bug, or internal bug. But you have spoilt it now.

Comment on Japh Select or Download Code

Replies are listed 'Best First'.
Re: Japh by Moriarty (Abbot) on Aug 04, 2004 at 12:42 UTC
Segfaults under Linux (Debian Woody) with Perl 5.6.1 as well.	[reply]
Re: Japh by jdalbec (Deacon) on Aug 04, 2004 at 03:07 UTC
I get a segmentation fault (Mac OS X 10.3.4, Perl 5.8.1). I would conclude that my version of Perl is more broken than yours since `die`ing strikes me as less broken than segfaulting. What message do you get?	[reply] [d/l]
Re^2: Japh by Dedalus (Scribe) on Aug 04, 2004 at 15:59 UTC
For me `/(?{\/\/}/` dies with the message: panic: unknown regstclass 0 at (name) line (line) The SIG handler should then deform that slightly to give "perl\n" as the output to STDERR. It would appear it works for no-one but me, oh well.	[reply] [d/l]
Re: Japh by gellyfish (Monsignor) on Aug 04, 2004 at 16:54 UTC
Segmentation fault in `Perl_sv_2pv_flags` theres quite a lot of pointer arithmetic in there. /J\	[reply] [d/l]
Re: Japh by holli (Abbot) on Jan 21, 2005 at 00:06 UTC
Does not die on Active Perl 5.8.0 but does produce no ouput also. Should that tell me something? holli, regexed monk	[reply]