mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
[RT #36079] Convert ` to '.
This commit is contained in:
jkeenan
Father Chrysostomos
parent
18225a01ba
commit
e38ccfd9be
10
Copying
10
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.
|
||||
|
||||
<signature of Ty Coon>, 1 April 1989
|
||||
|
||||
56
dist/B-Deparse/Deparse.pm
vendored
56
dist/B-Deparse/Deparse.pm
vendored
@ -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;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user