Re^4: How could I check if a variable is 'read-only'?

What do you make of this?

#!/usr/bin/env perl

use strict;
use warnings;
use JSON;
use Scalar::Util qw/ readonly /;

my $data = decode_json('{ "val":false }');
print "readonly: ", readonly($data->{val}) ? 'yes' : 'no', "\n";
bless $data->{val};
[download]

That produces this for me (on Perl 5.18.2):

$./try
readonly: no
Modification of a read-only value attempted at ./try line 10.
[download]

Comment on Re^4: How could I check if a variable is 'read-only'? Select or Download Code

Replies are listed 'Best First'.
Re^5: How could I check if a variable is 'read-only'? by Anonymous Monk on Jun 15, 2019 at 19:44 UTC
cant reproduce that here, try upgrading perl and or json module	[reply]
Re^6: How could I check if a variable is 'read-only'? by Your Mother (Archbishop) on Jun 15, 2019 at 19:56 UTC
Or cite yours…? `readonly: no Modification of a read-only value attempted at - line 9. # Successfully installed JSON-4.02 (upgraded from 2.97001) readonly: no Modification of a read-only value attempted at - line 8. # Scalar::Util is up to date. (1.50) perl -MScalar::Util=readonly -MJSON -E 'say readonly(JSON::false) ? "r +eadonly" : "ReAdOnLY"' ReAdOnLY # This is perl 5, version 18, subversion 4 (v5.18.4)` [download]	[reply] [d/l]
Re^7: How could I check if a variable is 'read-only'? by choroba (Cardinal) on Jun 15, 2019 at 20:00 UTC
Also note that JSON is just a proxy to several possible JSON modules: JSON::XS, JSON::PP, or JSON::backportPP (or Cpanel::JSON::XS, but you have to demand it explicitly). `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]