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
Remove obsolete notes and TODOs from feature.pm
[perl5.git]
/
perl.c
diff --git
a/perl.c
b/perl.c
index
4f9fdac
..
f9cebf1
100644
(file)
--- a/
perl.c
+++ b/
perl.c
@@
-2061,11
+2061,6
@@
S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
}
#endif
}
#endif
- if (PL_taint_warn && PL_dowarn != G_WARN_ALL_OFF) {
- PL_compiling.cop_warnings
- = Perl_new_warnings_bitfield(aTHX_ NULL, WARN_TAINTstring, WARNsize);
- }
-
if (!scriptname)
scriptname = argv[0];
if (PL_e_script) {
if (!scriptname)
scriptname = argv[0];
if (PL_e_script) {
@@
-3299,7
+3294,7
@@
Perl_moreswitches(pTHX_ char *s)
#endif
PerlIO_printf(PerlIO_stdout(),
#endif
PerlIO_printf(PerlIO_stdout(),
- "\n\nCopyright 1987-200
6
, Larry Wall\n");
+ "\n\nCopyright 1987-200
7
, Larry Wall\n");
#ifdef MACOS_TRADITIONAL
PerlIO_printf(PerlIO_stdout(),
"\nMac OS port Copyright 1991-2002, Matthias Neeracher;\n"
#ifdef MACOS_TRADITIONAL
PerlIO_printf(PerlIO_stdout(),
"\nMac OS port Copyright 1991-2002, Matthias Neeracher;\n"
@@
-3376,8
+3371,9
@@
this system using \"man perl\" or \"perldoc perl\". If you have access to the\n
Internet, point your browser at http://www.perl.org/, the Perl Home Page.\n\n");
my_exit(0);
case 'w':
Internet, point your browser at http://www.perl.org/, the Perl Home Page.\n\n");
my_exit(0);
case 'w':
- if (! (PL_dowarn & G_WARN_ALL_MASK))
+ if (! (PL_dowarn & G_WARN_ALL_MASK))
{
PL_dowarn |= G_WARN_ON;
PL_dowarn |= G_WARN_ON;
+ }
s++;
return s;
case 'W':
s++;
return s;
case 'W':