diff options
author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/CGI | |
parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CGI')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Apache.pm | 3 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Carp.pm | 7 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Cookie.pm | 9 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Fast.pm | 3 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Pretty.pm | 5 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Push.pm | 3 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Switch.pm | 3 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI/Util.pm | 5 |
8 files changed, 23 insertions, 15 deletions
diff --git a/Master/tlpkg/tlperl/lib/CGI/Apache.pm b/Master/tlpkg/tlperl/lib/CGI/Apache.pm index e055e305551..bde3ad971fd 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Apache.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Apache.pm @@ -1,7 +1,8 @@ package CGI::Apache; use CGI; +use if $] >= 5.019, 'deprecate'; -$VERSION = '1.01'; +$VERSION = '1.02'; 1; __END__ diff --git a/Master/tlpkg/tlperl/lib/CGI/Carp.pm b/Master/tlpkg/tlperl/lib/CGI/Carp.pm index c2145cafa42..806f05db138 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Carp.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Carp.pm @@ -1,4 +1,5 @@ package CGI::Carp; +use if $] >= 5.019, 'deprecate'; =head1 NAME @@ -191,13 +192,13 @@ when a C<die()> is done inside an C<eval> body or expression. Even though the fatalsToBrower support takes precautions to avoid this, you still may get the error message printed to STDOUT. -This may have some undesireable effects when the purpose of doing the +This may have some undesirable effects when the purpose of doing the eval is to determine which of several algorithms is to be used. By setting C<$CGI::Carp::TO_BROWSER> to 0 you can suppress printing the C<die> messages but without all of the complexity of using C<set_die_handler>. You can localize this effect to inside C<eval> -bodies if this is desireable: For example: +bodies if this is desirable: For example: eval { local $CGI::Carp::TO_BROWSER = 0; @@ -344,7 +345,7 @@ use File::Spec; $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '3.51'; +$CGI::Carp::VERSION = '3.64'; $CGI::Carp::CUSTOM_MSG = undef; $CGI::Carp::DIE_HANDLER = undef; $CGI::Carp::TO_BROWSER = 1; diff --git a/Master/tlpkg/tlperl/lib/CGI/Cookie.pm b/Master/tlpkg/tlperl/lib/CGI/Cookie.pm index da916aca652..5cc2dc20038 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Cookie.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Cookie.pm @@ -3,6 +3,8 @@ package CGI::Cookie; use strict; use warnings; +use if $] >= 5.019, 'deprecate'; + # See the bottom of this file for the POD documentation. Search for the # string '=head'. @@ -16,7 +18,7 @@ use warnings; # wish, but if you redistribute a modified version, please attach a note # listing the modifications you have made. -our $VERSION='1.30'; +our $VERSION='1.31'; use CGI::Util qw(rearrange unescape escape); use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1; @@ -334,13 +336,12 @@ If the "httponly" attribute is set, the cookie will only be accessible through HTTP Requests. This cookie will be inaccessible via JavaScript (to prevent XSS attacks). -This feature is only supported by recent browsers like Internet Explorer -6 Service Pack 1, Firefox 3.0 and Opera 9.5 (and later of course). +This feature is supported by nearly all modern browsers. See these URLs for more information: http://msdn.microsoft.com/en-us/library/ms533046.aspx - http://www.owasp.org/index.php/HTTPOnly#Browsers_Supporting_HTTPOnly + http://www.browserscope.org/?category=security&v=top =back diff --git a/Master/tlpkg/tlperl/lib/CGI/Fast.pm b/Master/tlpkg/tlperl/lib/CGI/Fast.pm index 288d854a9d5..01f7359c1c2 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Fast.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Fast.pm @@ -1,5 +1,6 @@ package CGI::Fast; use strict; +use if $] >= 5.019, 'deprecate'; # A way to say "use warnings" that's compatible with even older perls. # making it local will not affect the code that loads this module @@ -19,7 +20,7 @@ local $^W = 1; # wish, but if you redistribute a modified version, please attach a note # listing the modifications you have made. -$CGI::Fast::VERSION='1.09'; +$CGI::Fast::VERSION='1.10'; use CGI; use FCGI; diff --git a/Master/tlpkg/tlperl/lib/CGI/Pretty.pm b/Master/tlpkg/tlperl/lib/CGI/Pretty.pm index 869fe0cdf2e..acded21e6d8 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Pretty.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Pretty.pm @@ -8,9 +8,10 @@ package CGI::Pretty; # Perl 5 distribution). use strict; +use if $] >= 5.019, 'deprecate'; use CGI (); -$CGI::Pretty::VERSION = '3.46'; +$CGI::Pretty::VERSION = '3.64'; $CGI::DefaultClass = __PACKAGE__; $CGI::Pretty::AutoloadClass = 'CGI'; @CGI::Pretty::ISA = qw( CGI ); @@ -168,7 +169,7 @@ sub initialize_globals { # This is the string used for indentation of tags $CGI::Pretty::INDENT = "\t"; - # This is the string used for seperation between tags + # This is the string used for separation between tags $CGI::Pretty::LINEBREAK = $/; # These tags are not prettify'd. diff --git a/Master/tlpkg/tlperl/lib/CGI/Push.pm b/Master/tlpkg/tlperl/lib/CGI/Push.pm index 2af7d794da1..3353efcbcaf 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Push.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Push.pm @@ -1,4 +1,5 @@ package CGI::Push; +use if $] >= 5.019, 'deprecate'; # See the bottom of this file for the POD documentation. Search for the # string '=head'. @@ -16,7 +17,7 @@ package CGI::Push; # The most recent version and complete docs are available at: # http://stein.cshl.org/WWW/software/CGI/ -$CGI::Push::VERSION='1.05'; +$CGI::Push::VERSION='1.06'; use CGI; use CGI::Util 'rearrange'; @ISA = ('CGI'); diff --git a/Master/tlpkg/tlperl/lib/CGI/Switch.pm b/Master/tlpkg/tlperl/lib/CGI/Switch.pm index a311080e49f..ec21fe2f065 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Switch.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Switch.pm @@ -1,7 +1,8 @@ package CGI::Switch; +use if $] >= 5.019, 'deprecate'; use CGI; -$VERSION = '1.01'; +$VERSION = '1.02'; 1; diff --git a/Master/tlpkg/tlperl/lib/CGI/Util.pm b/Master/tlpkg/tlperl/lib/CGI/Util.pm index 494560e1292..4a1f28f1a7d 100644 --- a/Master/tlpkg/tlperl/lib/CGI/Util.pm +++ b/Master/tlpkg/tlperl/lib/CGI/Util.pm @@ -2,10 +2,11 @@ package CGI::Util; use base 'Exporter'; require 5.008001; use strict; +use if $] >= 5.019, 'deprecate'; our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); -our $VERSION = '3.62'; +our $VERSION = '3.64'; use constant EBCDIC => "\t" ne "\011"; @@ -210,7 +211,7 @@ sub unescape { # Byte strings were traditionally used directly as a sequence of octets. # This worked if they actually represented binary data (i.e. in CGI::Compress). # This also worked if these byte strings were actually utf-8 encoded; e.g., -# when the source file used utf-8 without the apropriate "use utf8;". +# when the source file used utf-8 without the appropriate "use utf8;". # This fails if the byte string is actually a Latin 1 encoded string, but it # was always so and cannot be fixed without breaking the binary data case. # -- Stepan Kasal <skasal@redhat.com> |