Select Code to Download

1>perl -we "sub rmap(&@){1}; eval { rmap { $_++ } 1 }; print $@;"

2>perl -we "sub rmap(&@){1};        rmap { $_++ } 1"

3>perl -we "eval { map { $_++ } (1) }; print $@;"
Modification of a read-only value attempted at -e line 1.

4>perl -we "       map { $_++ } (1)             "
Modification of a read-only value attempted at -e line 1.

5>perl -we "sub rmap(&@){my $c=shift;$c->($_) for @_};        rmap { $
+_++ } 1
   print $@;"
...
6>perl -we "sub rmap(&@){my $c=shift;$c->($_) for @_};        rmap { $
+_++ } 1;
   print $@;"
Modification of a read-only value attempted at -e line 1.