Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 contemplating the Monastery: (11)
As of 2014-10-01 21:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (38 votes), past polls