Permalink
Browse files

Added multiple additional tests from Michael Schwern.

  • Loading branch information...
1 parent cf58158 commit 4ea72d84dd7760e4bdd4601a8862064acf525a4e lstein committed Sep 26, 2001
Showing with 2,510 additions and 265 deletions.
  1. +21 −17 CGI.pm
  2. +3 −0 CGI/Apache.pm
  3. +1 −1 CGI/Carp.pm
  4. +13 −3 CGI/Pretty.pm
  5. +3 −0 CGI/Switch.pm
  6. +58 −145 CGI/Util.pm
  7. +10 −3 MANIFEST
  8. +3 −2 cgi_docs.html
  9. +13 −0 t/apache.t
  10. +270 −0 t/carp.t
  11. +327 −0 t/cookie.t
  12. +37 −0 t/fast.t
  13. +105 −62 t/form.t
  14. +7 −0 t/function.t
  15. +8 −2 t/html.t
  16. +927 −0 t/lib/Test/More.pm
  17. +495 −0 t/lib/Test/Simple.pm
  18. +26 −0 t/lib/Test/Utils.pm
  19. +34 −30 t/pretty.t
  20. +85 −0 t/push.t
  21. +13 −0 t/switch.t
  22. +51 −0 t/util.t
View
38 CGI.pm
@@ -18,7 +18,7 @@ use Carp 'croak';
# The most recent version and complete docs are available at:
# http://stein.cshl.org/WWW/software/CGI/
-$CGI::revision = '$Id: CGI.pm,v 1.54 2001-09-26 01:38:52 lstein Exp $';
+$CGI::revision = '$Id: CGI.pm,v 1.55 2001-09-26 02:15:52 lstein Exp $';
$CGI::VERSION='2.78';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
@@ -112,22 +112,18 @@ unless ($OS) {
$OS = $Config::Config{'osname'};
}
}
-if ($OS=~/darwin/i) {
- $OS = 'UNIX';
-} elsif ($OS=~/Win/i) {
+if ($OS =~ /^MSWin/i) {
$OS = 'WINDOWS';
-} elsif ($OS=~/vms/i) {
+} elsif ($OS =~ /^VMS/i) {
$OS = 'VMS';
-} elsif ($OS=~/bsdos/i) {
- $OS = 'UNIX';
-} elsif ($OS=~/dos/i) {
+} elsif ($OS =~ /^dos/i) {
$OS = 'DOS';
-} elsif ($OS=~/^MacOS$/i) {
+} elsif ($OS =~ /^MacOS/i) {
$OS = 'MACINTOSH';
-} elsif ($OS=~/epoc/) {
- $OS = 'EPOC';
-} elsif ($OS=~/os2/i) {
+} elsif ($OS =~ /^os2/i) {
$OS = 'OS2';
+} elsif ($OS =~ /^epoc/i) {
+ $OS = 'EPOC';
} else {
$OS = 'UNIX';
}
@@ -3582,12 +3578,18 @@ have several choices:
=over 4
-=item 1. Use another name for the argument, if one is available. For
-example, -value is an alias for -values.
+=item 1.
-=item 2. Change the capitalization, e.g. -Values
+Use another name for the argument, if one is available.
+For example, -value is an alias for -values.
+
+=item 2.
-=item 3. Put quotes around the argument name, e.g. '-values'
+Change the capitalization, e.g. -Values
+
+=item 3.
+
+Put quotes around the argument name, e.g. '-values'
=back
@@ -6294,7 +6296,9 @@ Call B<nph()> with a non-zero parameter at any point after using CGI.pm in your
CGI->nph(1)
-=item By using B<-nph> parameters in the B<header()> and B<redirect()> statements:
+=item By using B<-nph> parameters
+
+in the B<header()> and B<redirect()> statements:
print $q->header(-nph=>1);
View
@@ -1,4 +1,7 @@
use CGI;
+
+$VERSION = '1.00';
+
1;
__END__
View
@@ -289,7 +289,7 @@ sub _warn {
}
}
-sub ineval { _longmess() =~ /eval [\{\']/m }
+sub ineval { $^S }
# The mod_perl package Apache::Registry loads CGI programs by calling
# eval. These evals don't count when looking at the stack backtrace.
View
@@ -10,7 +10,7 @@ package CGI::Pretty;
use strict;
use CGI ();
-$CGI::Pretty::VERSION = '1.05';
+$CGI::Pretty::VERSION = '1.05_00';
$CGI::DefaultClass = __PACKAGE__;
$CGI::Pretty::AutoloadClass = 'CGI';
@CGI::Pretty::ISA = qw( CGI );
@@ -84,6 +84,16 @@ sub _make_tag_func {
(ref(\$_[0]) eq 'ARRAY') ? \@{\$_[0]} : "\@_";
}
else {
+ my \@args;
+ if(ref(\$_[0]) eq 'ARRAY') {
+ \@args = \@{\$_[0]}
+ } else {
+ foreach (\@_) {
+ \$args[0] .= \$_;
+ \$args[0] .= " " unless \$args[0] =~ /\\s\$/;
+ }
+ chop \$args[0];
+ }
\@result = map {
chomp;
if ( \$_ !~ /<\\// ) {
@@ -94,8 +104,8 @@ sub _make_tag_func {
CGI::Pretty::_prettyPrint( \\\$tmp );
\$_ = \$tmp;
}
- "\$tag\$CGI::Pretty::LINEBREAK\$CGI::Pretty::INDENT\$_\$CGI::Pretty::LINEBREAK\$untag\$CGI::Pretty::LINEBREAK" }
- (ref(\$_[0]) eq 'ARRAY') ? \@{\$_[0]} : "\@_";
+ "\$tag\$CGI::Pretty::LINEBREAK\$CGI::Pretty::INDENT\$_\$CGI::Pretty::LINEBREAK\$untag\$CGI::Pretty::LINEBREAK"
+ } \@args;
}
local \$" = "";
return "\@result";
View
@@ -1,4 +1,7 @@
use CGI;
+
+$VERSION = '1.00';
+
1;
__END__
View
@@ -10,151 +10,65 @@ $VERSION = '1.3';
$EBCDIC = "\t" ne "\011";
if ($EBCDIC) {
-if ("~" eq "\xff") {
-# POSIX-BC (BS2000)
-# Bijective ascii-to-ebcdic table:
-@A2E = (
-0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f,
-0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
-0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26,
-0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f,
-0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d,
-0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61,
-0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
-0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f,
-0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7,
-0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6,
-0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6,
-0xe7, 0xe8, 0xe9, 0xbb, 0xbc, 0xbd, 0x6a, 0x6d,
-0x4a, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
-0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,
-0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6,
-0xa7, 0xa8, 0xa9, 0xfb, 0x4f, 0xfd, 0xff, 0x07,
-0x20, 0x21, 0x22, 0x23, 0x24, 0x04, 0x06, 0x08,
-0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x09, 0x0a, 0x14,
-0x30, 0x31, 0x25, 0x33, 0x34, 0x35, 0x36, 0x17,
-0x38, 0x39, 0x3a, 0x3b, 0x1a, 0x1b, 0x3e, 0x5f,
-0x41, 0xaa, 0xb0, 0xb1, 0x9f, 0xb2, 0xd0, 0xb5,
-0x79, 0xb4, 0x9a, 0x8a, 0xba, 0xca, 0xaf, 0xa1,
-0x90, 0x8f, 0xea, 0xfa, 0xbe, 0xa0, 0xb6, 0xb3,
-0x9d, 0xda, 0x9b, 0x8b, 0xb7, 0xb8, 0xb9, 0xab,
-0x64, 0x65, 0x62, 0x66, 0x63, 0x67, 0x9e, 0x68,
-0x74, 0x71, 0x72, 0x73, 0x78, 0x75, 0x76, 0x77,
-0xac, 0x69, 0xed, 0xee, 0xeb, 0xef, 0xec, 0xbf,
-0x80, 0xe0, 0xfe, 0xdd, 0xfc, 0xad, 0xae, 0x59,
-0x44, 0x45, 0x42, 0x46, 0x43, 0x47, 0x9c, 0x48,
-0x54, 0x51, 0x52, 0x53, 0x58, 0x55, 0x56, 0x57,
-0x8c, 0x49, 0xcd, 0xce, 0xcb, 0xcf, 0xcc, 0xe1,
-0x70, 0xc0, 0xde, 0xdb, 0xdc, 0x8d, 0x8e, 0xdf
- );
-# Bijective ebcdic-to-ascii table:
-@E2A = (
-0x00, 0x01, 0x02, 0x03, 0x85, 0x09, 0x86, 0x7f,
-0x87, 0x8d, 0x8e, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
-0x10, 0x11, 0x12, 0x13, 0x8f, 0x0a, 0x08, 0x97,
-0x18, 0x19, 0x9c, 0x9d, 0x1c, 0x1d, 0x1e, 0x1f,
-0x80, 0x81, 0x82, 0x83, 0x84, 0x92, 0x17, 0x1b,
-0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x05, 0x06, 0x07,
-0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04,
-0x98, 0x99, 0x9a, 0x9b, 0x14, 0x15, 0x9e, 0x1a,
-0x20, 0xa0, 0xe2, 0xe4, 0xe0, 0xe1, 0xe3, 0xe5,
-0xe7, 0xf1, 0x60, 0x2e, 0x3c, 0x28, 0x2b, 0x7c,
-0x26, 0xe9, 0xea, 0xeb, 0xe8, 0xed, 0xee, 0xef,
-0xec, 0xdf, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x9f,
-0x2d, 0x2f, 0xc2, 0xc4, 0xc0, 0xc1, 0xc3, 0xc5,
-0xc7, 0xd1, 0x5e, 0x2c, 0x25, 0x5f, 0x3e, 0x3f,
-0xf8, 0xc9, 0xca, 0xcb, 0xc8, 0xcd, 0xce, 0xcf,
-0xcc, 0xa8, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22,
-0xd8, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
-0x68, 0x69, 0xab, 0xbb, 0xf0, 0xfd, 0xfe, 0xb1,
-0xb0, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70,
-0x71, 0x72, 0xaa, 0xba, 0xe6, 0xb8, 0xc6, 0xa4,
-0xb5, 0xaf, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78,
-0x79, 0x7a, 0xa1, 0xbf, 0xd0, 0xdd, 0xde, 0xae,
-0xa2, 0xa3, 0xa5, 0xb7, 0xa9, 0xa7, 0xb6, 0xbc,
-0xbd, 0xbe, 0xac, 0x5b, 0x5c, 0x5d, 0xb4, 0xd7,
-0xf9, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
-0x48, 0x49, 0xad, 0xf4, 0xf6, 0xf2, 0xf3, 0xf5,
-0xa6, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50,
-0x51, 0x52, 0xb9, 0xfb, 0xfc, 0xdb, 0xfa, 0xff,
-0xd9, 0xf7, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58,
-0x59, 0x5a, 0xb2, 0xd4, 0xd6, 0xd2, 0xd3, 0xd5,
-0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
-0x38, 0x39, 0xb3, 0x7b, 0xdc, 0x7d, 0xda, 0x7e
- );
-} else {
-# Bijective US-ASCII to EBCDIC (character set IBM-1047) table:
-@A2E = (
-0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f,
-0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
-0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26,
-0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f,
-0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d,
-0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61,
-0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
-0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f,
-0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7,
-0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6,
-0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6,
-0xe7, 0xe8, 0xe9, 0xad, 0xe0, 0xbd, 0x5f, 0x6d,
-0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
-0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,
-0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6,
-0xa7, 0xa8, 0xa9, 0xc0, 0x4f, 0xd0, 0xa1, 0x07,
-0x20, 0x21, 0x22, 0x23, 0x24, 0x04, 0x06, 0x08,
-0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x09, 0x0a, 0x14,
-0x30, 0x31, 0x25, 0x33, 0x34, 0x35, 0x36, 0x17,
-0x38, 0x39, 0x3a, 0x3b, 0x1a, 0x1b, 0x3e, 0xff,
-0x41, 0xaa, 0x4a, 0xb1, 0x9f, 0xb2, 0x6a, 0xb5,
-0xbb, 0xb4, 0x9a, 0x8a, 0xb0, 0xca, 0xaf, 0xbc,
-0x90, 0x8f, 0xea, 0xfa, 0xbe, 0xa0, 0xb6, 0xb3,
-0x9d, 0xda, 0x9b, 0x8b, 0xb7, 0xb8, 0xb9, 0xab,
-0x64, 0x65, 0x62, 0x66, 0x63, 0x67, 0x9e, 0x68,
-0x74, 0x71, 0x72, 0x73, 0x78, 0x75, 0x76, 0x77,
-0xac, 0x69, 0xed, 0xee, 0xeb, 0xef, 0xec, 0xbf,
-0x80, 0xfd, 0xfe, 0xfb, 0xfc, 0xba, 0xae, 0x59,
-0x44, 0x45, 0x42, 0x46, 0x43, 0x47, 0x9c, 0x48,
-0x54, 0x51, 0x52, 0x53, 0x58, 0x55, 0x56, 0x57,
-0x8c, 0x49, 0xcd, 0xce, 0xcb, 0xcf, 0xcc, 0xe1,
-0x70, 0xdd, 0xde, 0xdb, 0xdc, 0x8d, 0x8e, 0xdf
- );
-# Bijective EBCDIC (character set IBM-1047) to US-ASCII table:
-@E2A = (
-0x00, 0x01, 0x02, 0x03, 0x85, 0x09, 0x86, 0x7f,
-0x87, 0x8d, 0x8e, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
-0x10, 0x11, 0x12, 0x13, 0x8f, 0x0a, 0x08, 0x97,
-0x18, 0x19, 0x9c, 0x9d, 0x1c, 0x1d, 0x1e, 0x1f,
-0x80, 0x81, 0x82, 0x83, 0x84, 0x92, 0x17, 0x1b,
-0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x05, 0x06, 0x07,
-0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04,
-0x98, 0x99, 0x9a, 0x9b, 0x14, 0x15, 0x9e, 0x1a,
-0x20, 0xa0, 0xe2, 0xe4, 0xe0, 0xe1, 0xe3, 0xe5,
-0xe7, 0xf1, 0xa2, 0x2e, 0x3c, 0x28, 0x2b, 0x7c,
-0x26, 0xe9, 0xea, 0xeb, 0xe8, 0xed, 0xee, 0xef,
-0xec, 0xdf, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x5e,
-0x2d, 0x2f, 0xc2, 0xc4, 0xc0, 0xc1, 0xc3, 0xc5,
-0xc7, 0xd1, 0xa6, 0x2c, 0x25, 0x5f, 0x3e, 0x3f,
-0xf8, 0xc9, 0xca, 0xcb, 0xc8, 0xcd, 0xce, 0xcf,
-0xcc, 0x60, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22,
-0xd8, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
-0x68, 0x69, 0xab, 0xbb, 0xf0, 0xfd, 0xfe, 0xb1,
-0xb0, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70,
-0x71, 0x72, 0xaa, 0xba, 0xe6, 0xb8, 0xc6, 0xa4,
-0xb5, 0x7e, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78,
-0x79, 0x7a, 0xa1, 0xbf, 0xd0, 0x5b, 0xde, 0xae,
-0xac, 0xa3, 0xa5, 0xb7, 0xa9, 0xa7, 0xb6, 0xbc,
-0xbd, 0xbe, 0xdd, 0xa8, 0xaf, 0x5d, 0xb4, 0xd7,
-0x7b, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
-0x48, 0x49, 0xad, 0xf4, 0xf6, 0xf2, 0xf3, 0xf5,
-0x7d, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50,
-0x51, 0x52, 0xb9, 0xfb, 0xfc, 0xf9, 0xfa, 0xff,
-0x5c, 0xf7, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58,
-0x59, 0x5a, 0xb2, 0xd4, 0xd6, 0xd2, 0xd3, 0xd5,
-0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
-0x38, 0x39, 0xb3, 0xdb, 0xdc, 0xd9, 0xda, 0x9f
- );
- }
+ # (ord('^') == 95) for codepage 1047 as on os390, vmesa
+ @A2E = (
+ 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 21, 11, 12, 13, 14, 15,
+ 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31,
+ 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97,
+ 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111,
+ 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214,
+ 215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109,
+ 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150,
+ 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7,
+ 32, 33, 34, 35, 36, 37, 6, 23, 40, 41, 42, 43, 44, 9, 10, 27,
+ 48, 49, 26, 51, 52, 53, 54, 8, 56, 57, 58, 59, 4, 20, 62,255,
+ 65,170, 74,177,159,178,106,181,187,180,154,138,176,202,175,188,
+ 144,143,234,250,190,160,182,179,157,218,155,139,183,184,185,171,
+ 100,101, 98,102, 99,103,158,104,116,113,114,115,120,117,118,119,
+ 172,105,237,238,235,239,236,191,128,253,254,251,252,186,174, 89,
+ 68, 69, 66, 70, 67, 71,156, 72, 84, 81, 82, 83, 88, 85, 86, 87,
+ 140, 73,205,206,203,207,204,225,112,221,222,219,220,141,142,223
+ );
+ @E2A = (
+ 0, 1, 2, 3,156, 9,134,127,151,141,142, 11, 12, 13, 14, 15,
+ 16, 17, 18, 19,157, 10, 8,135, 24, 25,146,143, 28, 29, 30, 31,
+ 128,129,130,131,132,133, 23, 27,136,137,138,139,140, 5, 6, 7,
+ 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26,
+ 32,160,226,228,224,225,227,229,231,241,162, 46, 60, 40, 43,124,
+ 38,233,234,235,232,237,238,239,236,223, 33, 36, 42, 41, 59, 94,
+ 45, 47,194,196,192,193,195,197,199,209,166, 44, 37, 95, 62, 63,
+ 248,201,202,203,200,205,206,207,204, 96, 58, 35, 64, 39, 61, 34,
+ 216, 97, 98, 99,100,101,102,103,104,105,171,187,240,253,254,177,
+ 176,106,107,108,109,110,111,112,113,114,170,186,230,184,198,164,
+ 181,126,115,116,117,118,119,120,121,122,161,191,208, 91,222,174,
+ 172,163,165,183,169,167,182,188,189,190,221,168,175, 93,180,215,
+ 123, 65, 66, 67, 68, 69, 70, 71, 72, 73,173,244,246,242,243,245,
+ 125, 74, 75, 76, 77, 78, 79, 80, 81, 82,185,251,252,249,250,255,
+ 92,247, 83, 84, 85, 86, 87, 88, 89, 90,178,212,214,210,211,213,
+ 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,179,219,220,217,218,159
+ );
+ if (ord('^') == 106) { # as in the BS2000 posix-bc coded character set
+ $A2E[91] = 187; $A2E[92] = 188; $A2E[94] = 106; $A2E[96] = 74;
+ $A2E[123] = 251; $A2E[125] = 253; $A2E[126] = 255; $A2E[159] = 95;
+ $A2E[162] = 176; $A2E[166] = 208; $A2E[168] = 121; $A2E[172] = 186;
+ $A2E[175] = 161; $A2E[217] = 224; $A2E[219] = 221; $A2E[221] = 173;
+ $A2E[249] = 192;
+
+ $E2A[74] = 96; $E2A[95] = 159; $E2A[106] = 94; $E2A[121] = 168;
+ $E2A[161] = 175; $E2A[173] = 221; $E2A[176] = 162; $E2A[186] = 172;
+ $E2A[187] = 91; $E2A[188] = 92; $E2A[192] = 249; $E2A[208] = 166;
+ $E2A[221] = 219; $E2A[224] = 217; $E2A[251] = 123; $E2A[253] = 125;
+ $E2A[255] = 126;
+ }
+ elsif (ord('^') == 176) { # as in codepage 037 on os400
+ $A2E[10] = 37; $A2E[91] = 186; $A2E[93] = 187; $A2E[94] = 176;
+ $A2E[133] = 21; $A2E[168] = 189; $A2E[172] = 95; $A2E[221] = 173;
+
+ $E2A[21] = 133; $E2A[37] = 10; $E2A[95] = 172; $E2A[173] = 221;
+ $E2A[176] = 94; $E2A[186] = 91; $E2A[187] = 93; $E2A[189] = 168;
+ }
}
+
# Smart rearrangement of parameters to allow named parameter
# calling. We do the rearangement if:
# the first parameter begins with a -
@@ -285,7 +199,6 @@ sub escape {
shift() if @_ > 1 and ( ref($_[0]) || (defined $_[1] && $_[0] eq $CGI::DefaultClass));
my $toencode = shift;
return undef unless defined($toencode);
- $EBCDIC = "\t" ne "\011";
if ($EBCDIC) {
$toencode=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",$E2A[ord($1)])/eg;
} else {
View
@@ -36,11 +36,18 @@ examples/popup.cgi
examples/save_state.cgi
examples/tryit.cgi
examples/wilogo.gif
-t/esc.t
+t/apache.t
+t/carp.t
+t/cookie.t
+t/fast.t
t/form.t
t/function.t
t/html.t
-t/request.t
+t/lib/Test/More.pm
+t/lib/Test/Simple.pm
+t/lib/Test/Utils.pm
t/pretty.t
t/push.t
-
+t/request.t
+t/switch.t
+t/util.t
View
@@ -7,7 +7,7 @@
<BODY bgcolor="#FFFFFF">
<H1><IMG SRC="examples/dna.small.gif" ALT="[logo]">
CGI.pm - a Perl5 CGI Library</H1>
-Version 2.78, ?/??/2001, L. Stein
+Version 2.78, 9/25/2001, L. Stein
<p>
<H2>Abstract</H2> This perl 5 library uses objects to create Web
@@ -4697,6 +4697,7 @@
minimized attributes, such as "checked".
<li>Patched bug which caused file uploads of exactly 4096 bytes to
be truncated to 4094 (thanks to Kevin Mahony)
+ <li>New tests and fixes to CGI::Pretty (thanks to Michael Schwern).
</ol>
@@ -5624,6 +5625,6 @@
<a href="http://www.cshl.org/">Cold Spring Harbor Laboratory</a></ADDRESS>
<P>
<!-- hhmts start -->
-Last modified: Tue Sep 25 18:11:51 EDT 2001
+Last modified: Tue Sep 25 22:14:37 EDT 2001
<!-- hhmts end -->
</BODY> </HTML>
Oops, something went wrong.

0 comments on commit 4ea72d8

Please sign in to comment.