This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
89def59
)
toke.c: Indent properly
author
Karl Williamson
<public@khwilliamson.com>
Sun, 21 Oct 2012 17:10:32 +0000
(11:10 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Wed, 24 Oct 2012 16:45:25 +0000
(10:45 -0600)
toke.c
patch
|
blob
|
blame
|
history
diff --git
a/toke.c
b/toke.c
index
61f1e04
..
63b6d02
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-8926,13
+8926,13
@@
S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRLEN keylen,
"Constant(%s) unknown", (type ? type: "undef"));
}
else {
- why1 = "$^H{";
- why2 = key;
- why3 = "} is not defined";
- report:
- msg = Perl_newSVpvf(aTHX_ "Constant(%s): %s%s%s",
- (type ? type: "undef"), why1, why2, why3);
- }
+
why1 = "$^H{";
+
why2 = key;
+
why3 = "} is not defined";
+
report:
+
msg = Perl_newSVpvf(aTHX_ "Constant(%s): %s%s%s",
+
(type ? type: "undef"), why1, why2, why3);
+
}
yyerror(SvPVX_const(msg));
SvREFCNT_dec(msg);
return sv;