Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much


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.

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.

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 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.


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?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://379797]
Approved by ysth
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2018-04-23 09:59 GMT
Find Nodes?
    Voting Booth?