in reply to Carp croak not working when used in an imported function

try this? 
sub errmsg {
    local $Carp::CarpLevel = 1;
    Carp::croak "$_[0]";
}

[download]

update: i understand this is a rather contentious 'feature'! some suggest +=1 instead, or consider Carp::Clan..
again: +=1 doesn't work as i expected on a local, use local $Carp::CarpLevel = $Carp::CarpLevel + 1; as shenme suggested below!

Replies are listed 'Best First'.
Re^2: Carp croak not working when used in an imported function
by shenme (Priest) on Sep 29, 2006 at 23:04 UTC
    Quick, before tilly notices, change that to 
        local $Carp::CarpLevel = $Carp::CarpLevel + 1;

    [download]
[reply]
[d/l]
Re^2: Carp croak not working when used in an imported function
by fmerges (Chaplain) on Sep 29, 2006 at 23:25 UTC

    Hi,

    Why quoting the parameter to croak? "$_[0]" -> $_[0]

    I don't see the problem:

    cucu.pm 
    package cucu;

use strict;
use Carp ();

sub error {
    Carp::croak @_;
}

1;

    [download]
    t.pl 
    use strict;
use cucu;

ty();

sub ty {
    cucu::error('blabla');
}

    [download]

    Regards,

    fmerges at irc.freenode.net
[reply]
[d/l]
[select]
Re^2: Carp croak not working when used in an imported function
by Anonymous Monk on Sep 29, 2006 at 23:12 UTC
    That did it! Thanks.
[reply]

In Section Seekers of Perl Wisdom