perl: change all non-singlequoted string quoting to q""

diff --git a/perl.inc.pl b/perl.inc.pl
index b0e9a45dfa1bc161aff421c57a48b6652ef80c85..abdf7a957cfd154a065f1f9ebe0f3504f5520017 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -7,12 +7,12 @@ use utf8;
                        ['<code>use utf8</code>', 'experimental unicode semantics <small>(completed in v5.8)</small>', v5.8],
                        ['<code>use charnames</code>', 'string escape <code>\N{}</code> to insert named character'],
                        ['<code>our</code>', 'declare global variables'],
                        ['<code>use utf8</code>', 'experimental unicode semantics <small>(completed in v5.8)</small>', v5.8],
                        ['<code>use charnames</code>', 'string escape <code>\N{}</code> to insert named character'],
                        ['<code>our</code>', 'declare global variables'],

-                       ['<code>v1.2.3</code>', q`represent strings as vector of ordinals, useful in version numbers (<code>printf '%vd'</code> to display)`],
-                       ['<code>0b0</code>', q`binary numbers in literals, <code>printf '%b'</code>, and <code>oct</code>`],
+                       ['<code>v1.2.3</code>', q"represent strings as vector of ordinals, useful in version numbers (<code>printf '%vd'</code> to display)"],
+                       ['<code>0b0</code>', q"binary numbers in literals, <code>printf '%b'</code>, and <code>oct</code>"],

                        ['<code>sub :lvalue</code>', 'subroutine attribute to return a modifiable value', v5.20],
 #                      ['<code>sub :locked :method</code>', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support
                        ['<code>open my $fh, $mode, $expr</code>', 'file handles in scoped scalars, third argument for unambiguous file name'],
                        ['<code>sub :lvalue</code>', 'subroutine attribute to return a modifiable value', v5.20],
 #                      ['<code>sub :locked :method</code>', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support
                        ['<code>open my $fh, $mode, $expr</code>', 'file handles in scoped scalars, third argument for unambiguous file name'],

-                       [q`<code>pack 'q'</code>`, '64-bit integer support (also large files &gt;2GiB)', v5.8.1],
+                       [q"<code>pack 'q'</code>", '64-bit integer support (also large files &gt;2GiB)', v5.8.1],

                        ['<code>sort $coderef ()</code>', 'comparison function can be a subroutine reference; prototype <code>($$)</code> to pass elements as normal <code>@_</code>'],
                        ['<code>CHECK {}</code>', 'special block called at end of compilation'],
                        ['<code>/[[:…:]]/</code>', 'POSIX character class syntax such as <code>/[[:alpha:]]/</code>'],
                        ['<code>sort $coderef ()</code>', 'comparison function can be a subroutine reference; prototype <code>($$)</code> to pass elements as normal <code>@_</code>'],
                        ['<code>CHECK {}</code>', 'special block called at end of compilation'],
                        ['<code>/[[:…:]]/</code>', 'POSIX character class syntax such as <code>/[[:alpha:]]/</code>'],


@@ -29,13 +29,13 @@ use utf8;
 
        v5.8 => {
                new => [
 
        v5.8 => {
                new => [

-                       [q`<code>no utf8</code>`, 'full unicode support, <code>utf8</code> pragma only for script encoding'],
-                       [q`<code>binmode $fh, ':perlio'</code>`, 'file handle behaviour altered by PerlIO layers'],
-                       [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'],
-                       [q`<code>1_2_3 == 123</code>`, 'underscores between digits allowed in numeric constants'],
-#                      [q`<code>use if</code>`, 'conditional module inclusion'], # also installable in earlier versions
+                       [q"<code>no utf8</code>", 'full unicode support, <code>utf8</code> pragma only for script encoding'],
+                       [q"<code>binmode $fh, ':perlio'</code>", 'file handle behaviour altered by PerlIO layers'],
+                       [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'],
+                       [q"<code>1_2_3 == 123</code>", 'underscores between digits allowed in numeric constants'],
+#                      [q"<code>use if</code>", 'conditional module inclusion'], # also installable in earlier versions

                ],
                release => '2002-07-18',
                distro => {
                ],
                release => '2002-07-18',
                distro => {


@@ -72,7 +72,7 @@ use utf8;
                        ['<code>...</code>', 'yada-yada operator: code placeholder'],
                        ['<code>use 5.012</code>', 'Implicit <code>strict</code> if use VERSION >= v5.12'],
                        ['<code>… when</code>', '<code>when</code> is now allowed to be used as a statement modifier'],
                        ['<code>...</code>', 'yada-yada operator: code placeholder'],
                        ['<code>use 5.012</code>', 'Implicit <code>strict</code> if use VERSION >= v5.12'],
                        ['<code>… when</code>', '<code>when</code> is now allowed to be used as a statement modifier'],

-                       [q(<code>use overload 'qr'</code>), 'customisable conversion to regular expressions'],
+                       [q"<code>use overload 'qr'</code>", 'customisable conversion to regular expressions'],

                        ['<code>/\N/</code>', 'inverse \n to match any character except newline regardless of <code>/s</code>', v5.18],
                ],
                release => '2010-04-12',
                        ['<code>/\N/</code>', 'inverse \n to match any character except newline regardless of <code>/s</code>', v5.18],
                ],
                release => '2010-04-12',


@@ -87,7 +87,7 @@ use utf8;
                        ['<code>s///r</code>', 'non-destructive substitution'],
                        ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
                        ['<code>/(?{ m() })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>', v5.20],
                        ['<code>s///r</code>', 'non-destructive substitution'],
                        ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
                        ['<code>/(?{ m() })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>', v5.20],

-                       ["<code>use re '/flags'</code>", 'customise default modifiers'],
+                       [q"<code>use re '/flags'</code>", 'customise default modifiers'],

                        ['<code>each $ref</code> e.a.', 'array and hash container functions accept references', ''],
                        ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                ],
                        ['<code>each $ref</code> e.a.', 'array and hash container functions accept references', ''],
                        ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                ],


@@ -118,7 +118,7 @@ use utf8;
                        ['<code>/(?[ a + b ])/</code>', 'regex set operations (character substraction <code>-</code>, unions <code>&amp;</code>)', 'experimental::regex_sets'],
                        ['<code>my sub</code>', 'lexical subroutines (also <code>state</code>, <code>our</code>)', 'experimental::lexical_subs'],
                        ['<code>next $expression</code>', 'loop controls allow runtime expressions'],
                        ['<code>/(?[ a + b ])/</code>', 'regex set operations (character substraction <code>-</code>, unions <code>&amp;</code>)', 'experimental::regex_sets'],
                        ['<code>my sub</code>', 'lexical subroutines (also <code>state</code>, <code>our</code>)', 'experimental::lexical_subs'],
                        ['<code>next $expression</code>', 'loop controls allow runtime expressions'],

-                       [q(<code>no warnings 'experimental::…'</code>), 'mechanism for experimental features, as of now required for smartmatch'],
+                       [q"<code>no warnings 'experimental::…'</code>", 'mechanism for experimental features, as of now required for smartmatch'],

                ],
                release => '2013-05-18',
                unicode => '6.2',
                ],
                release => '2013-05-18',
                unicode => '6.2',


@@ -129,7 +129,7 @@ use utf8;
                        ['<code>sub ($var)</code>', 'subroutine signatures', 'experimental::signatures'],
                        ['<code>%hash{…}</code>', 'hash slices return key+value pairs'],
                        ['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)', 'experimental::postderef'],
                        ['<code>sub ($var)</code>', 'subroutine signatures', 'experimental::signatures'],
                        ['<code>%hash{…}</code>', 'hash slices return key+value pairs'],
                        ['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)', 'experimental::postderef'],

-                       [q(<code>use warnings 'once'; $a</code>), 'variables $a and $b are exempt from <em>used once</em> warnings'],
+                       [q"<code>use warnings 'once'; $a</code>", 'variables $a and $b are exempt from <em>used once</em> warnings'],

                ],
                unicode => '6.3',
                release => '2014-05-27',
                ],
                unicode => '6.3',
                release => '2014-05-27',