Quelqu'un peut-il m'expliquer cette exception en lecture seule?

Question

Ci-dessous mon code (ne vous inquiétez pas, il y a un USUW en haut du module)

Je teste si une référence à un tableau est en lecture seule, et si tel est le cas, alors je suis le copier dans un autre tableau ref. Les tests montrent que le tableau n'est pas en lecture seule, mais lorsqu'il s'exécute, il échoue avec cette erreur. (Pour ceux qui ne connaissent pas avec moi ou Smart::Comments --those ### sont Smart::Comments.)

### readonly($arg_ref) : readonly($arg_ref) 
### readonly(@$arg_ref) : readonly(@$arg_ref) 
my @ro = map { readonly($_) } @$arg_ref; 
### @ro 
if (readonly $arg_ref) { 
    $arg_ref = [ @$arg_ref ]; 
} 
return map { my $val = shift @$arg_ref; 
      $_ => $val 
      } @_ 
      ; 

Ceci est la sortie que je reçois:

### readonly($arg_ref) : 0 
### readonly(@$arg_ref) : 0 

### @ro: [ 
###  0, 
###  0, 
###  0, 
###  0, 
###  0 
###  ] 

Mais voici l'erreur:

Modification of a read-only value attempted at ....pm line 247. 

(247 est:

return map { my $val = shift @$arg_ref; 

)

Quelqu'un connaît-il ce problème? Nous utilisons Perl 5.8.7. Une idée sur la façon de l'aborder?

Answer 1

Il ne ressemble pas le résultat de Scalar::Util::readonly peut être confiance utilisé comment vous voulez l'utiliser. Témoin:

perl -MScalar::Util=readonly -MReadonly -wle' 
    Readonly my $arg_ref => [ qw(a b c)]; 
    print readonly $arg_ref; 
    $arg_ref = 1;' 

impressions:

0 
Modification of a read-only value attempted at -e line 1. 

(Testé sous perl5.8.8 avec Readonly 1,03, Scalar :: Util 1,23)

Answer 2

Si la référence de DBI::fetchrow_arrayref revient en lecture seule, en essayant de le remplacer ne sera pas utile: la référence est en lecture seule, pas le thingie (dire, le tableau avec des valeurs de colonne). Faites votre propre copie à la source si vous avez besoin de mises à jour destructrices, par exemple.,

my $arg_ref = [ $sth->fetchrow_array ]; 

Answer 3

Readonly et readonly sont différents. (Remarquez la R majuscule et minuscule r ;-).)

Voir la documentation Scalar::Util pourquoi cela est vrai:

readonly SCALAR

Returns true if SCALAR is readonly.

sub foo { readonly($_[0]) } 
$readonly = foo($bar);    # false 
$readonly = foo(0);     # true 

Ceci est plus sur les alias (tels que ceux qui sont passés via des boucles foreach ou . @_, et non le module Readonly

Answer 4

Je pense que je l'ai pensé à Robert P avait raison, mais il n'obtenu la moitié de la réponse. Readonly et readonly faire des choses différentes si elles devraient faire la même chose, le fait qu'ils ne sont pas un bug, je vais essayer d'expliquer ce qui se passe

Readonly a deux implémentations pour: un scalaires (Readonly::XS) qui est basée sur le drapeau SvREADONLY et un (Readonly :: Scalar) en fonction des liens qui émule le drapeau SvREADONLY.

readonly a également deux implémentations, une en Perl (qui fait l'auto-affectation et vérifie si elle déclenche une exception ou non), et une en XS (toujours basée sur le drapeau SvREADONLY).

Il y a 4 combinaisons possibles, et malheureusement celle qui est la plus commune (pure perl Readonly et XS readonly) est la seule qui ne fonctionne pas comme annoncé.

Voici le crux: sub Readonly::Readonly n'utilise en fait pas Readonly::XS, seulement sub Readonly::Scalar. Ceci est probablement un bug. readonlycorrectement signale que la variable n'est pas une variable en lecture seule: sa lecture est faussée par un lien.

C'est Readonly qui est en faute ici IMO, il devrait faire la bonne chose quand il peut et documenter quand il ne peut pas. En ce moment, il ne fait aucun de ceux-là.