sub is_readonly {
    eval {my $save=$_[0]; $_[0]=$save;};
    return $@ =~/read.?only/;
}