Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

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 :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://988891]
help
Chatterbox?
[Corion]: Also, rate limiting will look great with await: my $token = await $limiter-> limit($hostname); instead of my $f = $limiter->limit( $hostname )->then(sub { my( $token)=@_; ... });

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2017-10-23 08:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (277 votes). Check out past polls.

    Notices?