perl: code example as feature attribute

[sheet.git] / perl.inc.pl

diff --git a/perl.inc.pl b/perl.inc.pl
index 49e8eef362af0ec7c697a4af4dfd75826391b916..ba330baddc1bc671c1c70d843c39943362c8e449 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -59,7 +59,7 @@ use utf8;
        v5.8 => {
                new => [
                        [q"<code>no utf8</code>", 'full unicode support, <code>utf8</code> pragma only for script encoding', {name => 'utf8_data'}],
-                       [q"<code>binmode $fh, ':perlio'</code>", 'file handle behaviour altered by PerlIO layers', {name => 'perlio'}],
+                       [q"<code>use open</code>", 'file handle behaviour altered by PerlIO layers', {name => 'perlio', eg => 'binmode $fh, ":bytes"'}],
                        [q"<code>open $fh, '-|', @cmd</code>", 'open list to fork a command without spawning a shell'],
                        [q"<code>open $fh, '>', \$var</code>", 'perl scalars as virtual files'],
                        [q"<code>printf '%1$s', @args</code>", 'syntax to use parameters out of order'],