Cross Reference: charset.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
CGI
/
t
/
charset.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!perl
1
N/A
1
N/A
use
strict
;
1
N/A
use
warnings
;
1
N/A
1
N/A
use
Test
::
More
'no_plan'
;
1
N/A
1
N/A
use
CGI
;
1
N/A
1
N/A
my
$q =
CGI
->
new
;
1
N/A
1
N/A
like
( $q->
header
1
N/A
,
qr
/
charset
=
ISO
-
8859
-
1
/,
"charset ISO-8859-1 is set by default for default content-type"
)
;
1
N/A
like
( $q->
header
(
'
application
/
json
'
)
1
N/A
,
qr
/
charset
=
ISO
-
8859
-
1
/,
"charset ISO-8859-1 is set by default for
application
/
json
content-type"
)
;
1
N/A
1
N/A
{
1
N/A
$q->
charset
(
'UTF-8'
)
;
1
N/A
my
$out
= $q->
header
(
'
text
/
plain
'
)
;
1
N/A
like
(
$out
,
qr
{
Content
-
Type
:
text
/
plain
;
charset
=
UTF
-
8
},
"setting charset alters header of
text
/
plain
"
)
;
1
N/A
}
1
N/A
{
1
N/A
$q->
charset
(
'UTF-8'
)
;
1
N/A
my
$out
= $q->
header
(
'
application
/
json
'
)
;
1
N/A
like
(
$out
,
qr
{
Content
-
Type
:
application
/
json
;
charset
=
UTF
-
8
},
"setting charset alters header of
application
/
json
"
)
;
1
N/A
}
1
N/A