From 72ef3ad273de92b0d5572562beb62d3b9039c605 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Thu, 4 Jun 2015 23:36:46 +0200 Subject: [PATCH] perl: change all non-singlequoted string quoting to q"" --- perl.inc.pl | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/perl.inc.pl b/perl.inc.pl index b0e9a45..abdf7a9 100644 --- a/perl.inc.pl +++ b/perl.inc.pl @@ -7,12 +7,12 @@ use utf8; ['use utf8', 'experimental unicode semantics (completed in v5.8)', v5.8], ['use charnames', 'string escape \N{} to insert named character'], ['our', 'declare global variables'], - ['v1.2.3', q`represent strings as vector of ordinals, useful in version numbers (printf '%vd' to display)`], - ['0b0', q`binary numbers in literals, printf '%b', and oct`], + ['v1.2.3', q"represent strings as vector of ordinals, useful in version numbers (printf '%vd' to display)"], + ['0b0', q"binary numbers in literals, printf '%b', and oct"], ['sub :lvalue', 'subroutine attribute to return a modifiable value', v5.20], # ['sub :locked :method', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support ['open my $fh, $mode, $expr', 'file handles in scoped scalars, third argument for unambiguous file name'], - [q`pack 'q'`, '64-bit integer support (also large files >2GiB)', v5.8.1], + [q"pack 'q'", '64-bit integer support (also large files >2GiB)', v5.8.1], ['sort $coderef ()', 'comparison function can be a subroutine reference; prototype ($$) to pass elements as normal @_'], ['CHECK {}', 'special block called at end of compilation'], ['/[[:…:]]/', 'POSIX character class syntax such as /[[:alpha:]]/'], @@ -29,13 +29,13 @@ use utf8; v5.8 => { new => [ - [q`no utf8`, 'full unicode support, utf8 pragma only for script encoding'], - [q`binmode $fh, ':perlio'`, 'file handle behaviour altered by PerlIO layers'], - [q`open $fh, '-|', @cmd`, 'open list to fork a command without spawning a shell'], - [q`open $fh, '>', \$var`, 'perl scalars as virtual files'], - [q`printf '%1$s', @args`, 'syntax to use parameters out of order'], - [q`1_2_3 == 123`, 'underscores between digits allowed in numeric constants'], -# [q`use if`, 'conditional module inclusion'], # also installable in earlier versions + [q"no utf8", 'full unicode support, utf8 pragma only for script encoding'], + [q"binmode $fh, ':perlio'", 'file handle behaviour altered by PerlIO layers'], + [q"open $fh, '-|', @cmd", 'open list to fork a command without spawning a shell'], + [q"open $fh, '>', \$var", 'perl scalars as virtual files'], + [q"printf '%1$s', @args", 'syntax to use parameters out of order'], + [q"1_2_3 == 123", 'underscores between digits allowed in numeric constants'], +# [q"use if", 'conditional module inclusion'], # also installable in earlier versions ], release => '2002-07-18', distro => { @@ -72,7 +72,7 @@ use utf8; ['...', 'yada-yada operator: code placeholder'], ['use 5.012', 'Implicit strict if use VERSION >= v5.12'], ['… when', 'when is now allowed to be used as a statement modifier'], - [q(use overload 'qr'), 'customisable conversion to regular expressions'], + [q"use overload 'qr'", 'customisable conversion to regular expressions'], ['/\N/', 'inverse \n to match any character except newline regardless of /s', v5.18], ], release => '2010-04-12', @@ -87,7 +87,7 @@ use utf8; ['s///r', 'non-destructive substitution'], ['/(?^)/', 'construct to reset to default modifiers'], ['/(?{ m() })/', 'regular expressions can be nested in /(?{})/ and /(??{})/', v5.20], - ["use re '/flags'", 'customise default modifiers'], + [q"use re '/flags'", 'customise default modifiers'], ['each $ref e.a.', 'array and hash container functions accept references', ''], ['FH->method', 'filehandle method calls load IO::File on demand (eg. STDOUT->flush)'], ], @@ -118,7 +118,7 @@ use utf8; ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)', 'experimental::regex_sets'], ['my sub', 'lexical subroutines (also state, our)', 'experimental::lexical_subs'], ['next $expression', 'loop controls allow runtime expressions'], - [q(no warnings 'experimental::…'), 'mechanism for experimental features, as of now required for smartmatch'], + [q"no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'], ], release => '2013-05-18', unicode => '6.2', @@ -129,7 +129,7 @@ use utf8; ['sub ($var)', 'subroutine signatures', 'experimental::signatures'], ['%hash{…}', 'hash slices return key+value pairs'], ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)', 'experimental::postderef'], - [q(use warnings 'once'; $a), 'variables $a and $b are exempt from used once warnings'], + [q"use warnings 'once'; $a", 'variables $a and $b are exempt from used once warnings'], ], unicode => '6.3', release => '2014-05-27', -- 2.30.0