Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Japh

by Dedalus (Scribe)
on Aug 03, 2004 at 19:23 UTC ( #379797=obfuscated: print w/ replies, xml ) Need Help??

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 "};/(?{\/\/})/
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
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 dieing strikes me as less broken than segfaulting. What message do you get?
      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.
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.

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\

Re: Japh
by holli (Monsignor) 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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://379797]
Approved by ysth
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2014-04-18 23:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (472 votes), past polls