Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: This code snippet causes Perl to SEGV

by FunkyMonk (Canon)
on Aug 21, 2012 at 22:13 UTC ( #988891=note: print w/ replies, xml ) Need Help??

in reply to This code snippet causes Perl to SEGV

Just to narrow the problem down a little, perl 5.10.1 also SEGVs, but 5.12.3 does not.

The code runs fine on Ubuntu & perl 5.10.1 if you remove the pre-declared prototype (sub foo();). You don't need prototypes. They very probably don't do whatever it is you think they do.

Update: This works for me on 5.10.1. Try it on your 5.10.0:

#!perl510 -w use strict; #sub foo(); foo(); sub foo() { # shouldn't use () but does no harm here my $foo; format STDOUT = ^ $foo; . $foo="X"; write; }

I've been doing a lot of Python recently. Semi-colons sure do look weird now :)

Comment on Re: This code snippet causes Perl to SEGV
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://988891]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2015-11-29 13:00 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (750 votes), past polls