Re^2: runtime problem; elusive error


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re^2: runtime problem; elusive error

by andreas1234567 (Vicar)

on Sep 20, 2007 at 12:54 UTC ( [id://640109]=note: print w/replies, xml )

Need Help??

in reply to Re: runtime problem; elusive error
in thread runtime problem; elusive error

Doesn't look like installing Readonly::XS helps:

use warnings;
use strict;
use Readonly;
use Readonly::XS;

Readonly my $DBG_INFO    => 0x0004;
Readonly my $DBG_KEYS    => 0x0008;
Readonly my $DBG_RAND    => 0x0080;

Readonly my $_debug_ops => ($DBG_RAND | $DBG_KEYS | $DBG_INFO);
printf ("%04x\n", $_debug_ops);
printf ("%04x\n", $DBG_RAND | $DBG_KEYS | $DBG_INFO);

__END__
$ perl -wl 640089.pl
Argument "=28" isn't numeric in printf at 640089.pl line 12.
0000
008c

Readonly is up to date (1.03).
Readonly::XS is up to date (1.04).
perl, v5.8.5
linux 2.6.9
[download]

--
Andreas

Comment on Re^2: runtime problem; elusive error Download Code

Replies are listed 'Best First'.

Re^3: runtime problem; elusive error
by syphilis (Archbishop) on Sep 20, 2007 at 14:35 UTC

Doesn't look like installing Readonly::XS helps

Inline::C

use warnings;
use strict;

use Inline C => <<'EOC';

void ro_on(SV * x) {
     SvREADONLY_on(x);
}

EOC

my ($DBG_ANY, $DBG_INFO, $DBG_KEYS, $DBG_RAND)
    = (-1, 0x0004, 0x0008, 0x0080);

ro_on($_) for($DBG_ANY, $DBG_INFO, $DBG_KEYS, $DBG_RAND);

my $_debug_ops = $DBG_RAND | $DBG_KEYS | $DBG_INFO;

ro_on($_debug_ops);

printf "debugops = 0x%04x\n",$_debug_ops;
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://640109]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having an uproarious good time at the Monastery: (7)

As of 2024-04-23 19:03 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found