From e38ccfd9be3e341e4872a41a8378e174156b05a1 Mon Sep 17 00:00:00 2001 From: jkeenan Date: Sat, 19 Nov 2011 19:00:59 -0500 Subject: [PATCH] [RT #36079] Convert ` to '. --- Copying | 10 ++++----- dist/B-Deparse/Deparse.pm | 56 +++++++++++++++++++++++------------------------ 2 files changed, 33 insertions(+), 33 deletions(-) diff --git a/Copying b/Copying index 43cd72c..77d83df 100644 --- a/Copying +++ b/Copying @@ -224,13 +224,13 @@ If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19xx name of author - Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type 'show w'. This is free software, and you are welcome to redistribute it - under certain conditions; type `show c' for details. + under certain conditions; type 'show c' for details. -The hypothetical commands `show w' and `show c' should show the +The hypothetical commands 'show w' and 'show c' should show the appropriate parts of the General Public License. Of course, the -commands you use may be called something other than `show w' and `show +commands you use may be called something other than 'show w' and 'show c'; they could even be mouse-clicks or menu items--whatever suits your program. @@ -239,7 +239,7 @@ school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the - program `Gnomovision' (a program to direct compilers to make passes + program 'Gnomovision' (a program to direct compilers to make passes at assemblers) written by James Hacker. , 1 April 1989 diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index cc787a8..3df68ce 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -44,10 +44,10 @@ BEGIN { # - fixed reference constants (\"str") # - handle empty programs gracefully # - handle infinite loops (for (;;) {}, while (1) {}) -# - differentiate between `for my $x ...' and `my $x; for $x ...' +# - differentiate between 'for my $x ...' and 'my $x; for $x ...' # - various minor cleanups # - moved globals into an object -# - added `-u', like B::C +# - added '-u', like B::C # - package declarations using cop_stash # - subs, formats and code sorted by cop_seq # Changes between 0.51 and 0.52: @@ -55,10 +55,10 @@ BEGIN { # - added documentation # Changes between 0.52 and 0.53: # - many changes adding precedence contexts and associativity -# - added `-p' and `-s' output style options +# - added '-p' and '-s' output style options # - various other minor fixes # Changes between 0.53 and 0.54: -# - added support for new `for (1..100)' optimization, +# - added support for new 'for (1..100)' optimization, # thanks to Gisle Aas # Changes between 0.54 and 0.55: # - added support for new qr// construct @@ -67,16 +67,16 @@ BEGIN { # - tested on base/*.t, cmd/*.t, comp/*.t, io/*.t # - fixed $# on non-lexicals broken in last big rewrite # - added temporary fix for change in opcode of OP_STRINGIFY -# - fixed problem in 0.54's for() patch in `for (@ary)' +# - fixed problem in 0.54's for() patch in 'for (@ary)' # - fixed precedence in conditional of ?: -# - tweaked list paren elimination in `my($x) = @_' +# - tweaked list paren elimination in 'my($x) = @_' # - made continue-block detection trickier wrt. null ops # - fixed various prototype problems in pp_entersub # - added support for sub prototypes that never get GVs # - added unquoting for special filehandle first arg in truncate -# - print doubled rv2gv (a bug) as `*{*GV}' instead of illegal `**GV' +# - print doubled rv2gv (a bug) as '*{*GV}' instead of illegal '**GV' # - added semicolons at the ends of blocks -# - added -l `#line' declaration option -- fixes cmd/subval.t 27,28 +# - added -l '#line' declaration option -- fixes cmd/subval.t 27,28 # Changes between 0.56 and 0.561: # - fixed multiply-declared my var in pp_truncate (thanks to Sarathy) # - used new B.pm symbolic constants (done by Nick Ing-Simmons) @@ -89,7 +89,7 @@ BEGIN { # Changes after 0.57: # - added parens in \&foo (patch by Albert Dvornik) # Changes between 0.57 and 0.58: -# - fixed `0' statements that weren't being printed +# - fixed '0' statements that weren't being printed # - added methods for use from other programs # (based on patches from James Duncan and Hugo van der Sanden) # - added -si and -sT to control indenting (also based on a patch from Hugo) @@ -101,7 +101,7 @@ BEGIN { # Changes between 0.58 and 0.59 # - added support for Chip's OP_METHOD_NAMED # - added support for Ilya's OPpTARGET_MY optimization -# - elided arrows before `()' subscripts when possible +# - elided arrows before '()' subscripts when possible # Changes between 0.59 and 0.60 # - support for method attributes was added # - some warnings fixed @@ -151,7 +151,7 @@ BEGIN { # - configurable syntax highlighting: ANSI color, HTML, TeX, etc. # - more style options: brace style, hex vs. octal, quotes, ... # - print big ints as hex/octal instead of decimal (heuristic?) -# - handle `my $x if 0'? +# - handle 'my $x if 0'? # - version using op_next instead of op_first/sibling? # - avoid string copies (pass arrays, one big join?) # - here-docs? @@ -249,7 +249,7 @@ BEGIN { # parens: -p # linenums: -l # unquote: -q -# cuddle: ` ' or `\n', depending on -sC +# cuddle: ' ' or '\n', depending on -sC # indent_size: -si # use_tabs: -sT # ex_const: -sv @@ -263,7 +263,7 @@ BEGIN { # they're inside an expression or at statement level, etc. (see # chart below). When ops with children call deparse on them, they pass # along their precedence. Fractional values are used to implement -# associativity (`($x + $y) + $z' => `$x + $y + $y') and related +# associativity ('($x + $y) + $z' => '$x + $y + $y') and related # parentheses hacks. The major disadvantage of this scheme is that # it doesn't know about right sides and left sides, so say if you # assign a listop to a variable, it can't tell it's allowed to leave @@ -303,7 +303,7 @@ BEGIN { # \cS - steal parens (see maybe_parens_unop) # \n - newline and indent # \t - increase indent -# \b - decrease indent (`outdent') +# \b - decrease indent ('outdent') # \f - flush left (no indent) # \cK - kill following semicolon, if any @@ -950,7 +950,7 @@ sub is_state { return $name eq "nextstate" || $name eq "dbstate" || $name eq "setstate"; } -sub is_miniwhile { # check for one-line loop (`foo() while $y--') +sub is_miniwhile { # check for one-line loop ('foo() while $y--') my $op = shift; return (!null($op) and null($op->sibling) and $op->name eq "null" and class($op) eq "UNOP" @@ -1010,7 +1010,7 @@ sub maybe_parens { } } -# same as above, but get around the `if it looks like a function' rule +# same as above, but get around the 'if it looks like a function' rule sub maybe_parens_unop { my $self = shift; my($name, $kid, $cx) = @_; @@ -1031,7 +1031,7 @@ sub maybe_parens_unop { return $name . substr($kid, 1); } elsif (substr($kid, 0, 1) eq "(") { # avoid looks-like-a-function trap with extra parens - # (`+' can lead to ambiguities) + # ('+' can lead to ambiguities) return "$name(" . $kid . ")"; } else { return "$name $kid"; @@ -2011,7 +2011,7 @@ sub ftst { my $self = shift; my($op, $cx, $name) = @_; if (class($op) eq "UNOP") { - # Genuine `-X' filetests are exempt from the LLAFR, but not + # Genuine '-X' filetests are exempt from the LLAFR, but not # l?stat(); for the sake of clarity, give'em all parens return $self->maybe_parens_unop($name, $op->first, $cx); } elsif (class($op) =~ /^(SV|PAD)OP$/) { @@ -2061,7 +2061,7 @@ sub assoc_class { my $op = shift; my $name = $op->name; if ($name eq "concat" and $op->first->name eq "concat") { - # avoid spurious `=' -- see comment in pp_concat + # avoid spurious '=' -- see comment in pp_concat return "concat"; } if ($name eq "null" and class($op) eq "UNOP" @@ -2078,7 +2078,7 @@ sub assoc_class { return $name . ($op->flags & OPf_STACKED ? "=" : ""); } -# Left associative operators, like `+', for which +# Left associative operators, like '+', for which # $a + $b + $c is equivalent to ($a + $b) + $c BEGIN { @@ -2109,7 +2109,7 @@ sub deparse_binop_left { } } -# Right associative operators, like `=', for which +# Right associative operators, like '=', for which # $a = $b = $c is equivalent to $a = ($b = $c) BEGIN { @@ -2216,9 +2216,9 @@ sub pp_smartmatch { } } -# `.' is special because concats-of-concats are optimized to save copying +# '.' is special because concats-of-concats are optimized to save copying # by making all but the first concat stacked. The effect is as if the -# programmer had written `($a . $b) .= $c', except legal. +# programmer had written '($a . $b) .= $c', except legal. sub pp_concat { maybe_targmy(@_, \&real_concat) } sub real_concat { my $self = shift; @@ -2236,7 +2236,7 @@ sub real_concat { return $self->maybe_parens("$left .$eq $right", $cx, $prec); } -# `x' is weird when the left arg is a list +# 'x' is weird when the left arg is a list sub pp_repeat { my $self = shift; my($op, $cx) = @_; @@ -3254,7 +3254,7 @@ sub _method { # doesn't get flattened by the append_elem that adds the method, # making a (object, arg1, arg2, ...) list where the object # usually is. This can be distinguished from - # `($obj, $arg1, $arg2)->meth()' (which is legal if $arg2 is an + # '($obj, $arg1, $arg2)->meth()' (which is legal if $arg2 is an # object) because in the later the list is in scalar context # as the left side of -> always is, while in the former # the list is in list context as method arguments always are. @@ -3387,7 +3387,7 @@ sub check_proto { } } } - return "&" if $proto and !$doneok; # too few args and no `;' + return "&" if $proto and !$doneok; # too few args and no ';' return "&" if @args; # too many args return ("", join ", ", @reals); } @@ -3862,7 +3862,7 @@ sub pp_const { if ($op->private & OPpCONST_ARYBASE) { return '$['; } -# if ($op->private & OPpCONST_BARE) { # trouble with `=>' autoquoting +# if ($op->private & OPpCONST_BARE) { # trouble with '=>' autoquoting # return $self->const_sv($op)->PV; # } my $sv = $self->const_sv($op); @@ -3939,7 +3939,7 @@ sub double_delim { if (($succeed, $to) = balanced_delim($to) and $succeed) { return "$from$to"; } else { - for $delim ('/', '"', '#') { # note no `'' -- s''' is special + for $delim ('/', '"', '#') { # note no ''' -- s''' is special return "$from$delim$to$delim" if index($to, $delim) == -1; } $to =~ s[/][\\/]g; -- 1.8.3.1