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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
replace the run time code in lib/utf8_pva.pl with data generated
[perl5.git]
/
scope.h
diff --git
a/scope.h
b/scope.h
index
50b40fa
..
bbb5562
100644
(file)
--- a/
scope.h
+++ b/
scope.h
@@
-1,7
+1,7
@@
/* scope.h
*
* Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999,
/* scope.h
*
* Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999,
- * 2000, 2001, 2002, by Larry Wall and others
+ * 2000, 2001, 2002,
2004,
by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
@@
-152,14
+152,14
@@
Closing bracket on a callback. See C<ENTER> and L<perlcall>.
#define SAVEOP() save_op()
#define SAVEHINTS() \
#define SAVEOP() save_op()
#define SAVEHINTS() \
- STMT_START { \
-
if (PL_hints & HINT_LOCALIZE_HH)
\
-
save_hints();
\
-
else {
\
-
SSCHECK(2);
\
-
SSPUSHINT(PL_hints);
\
-
SSPUSHINT(SAVEt_HINTS);
\
-
}
\
+ STMT_START {
\
+
SSCHECK(3);
\
+
if (PL_hints & HINT_LOCALIZE_HH) {
\
+
SSPUSHPTR(GvHV(PL_hintgv));
\
+
GvHV(PL_hintgv) = newHVhv(GvHV(PL_hintgv));
\
+
}
\
+
SSPUSHINT(PL_hints);
\
+
SSPUSHINT(SAVEt_HINTS);
\
} STMT_END
#define SAVECOMPPAD() \
} STMT_END
#define SAVECOMPPAD() \