use strict;
use warnings;

use Inline C => <<'__EOI__';

void change_it(SV* sv) {
    SvIV_set(sv, 789);
    SvIOK_only(sv);
}

__EOI__

my $i = 123;
Internals::SvREADONLY($i, 1);
print("$i\n");

eval { $i = 456; };
print("$i\n");

change_it($i);
print("$i\n");

##</code><code>##

123
123
789