Cross Reference: init.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
CGI
/
t
/
init.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!/
usr
/
bin
perl -w
1
N/A
1
N/A
use
strict
;
1
N/A
use
Test
::
More
tests
=>
1
;
1
N/A
1
N/A
use
CGI
;
1
N/A
1
N/A
1
N/A
$_ =
"abcdefghijklmnopq"
;
1
N/A
my
$IN
;
1
N/A
open
(
$IN
,
"
t
/
init_test.txt
"
)
;
1
N/A
my
$q =
CGI
->
new
(
$IN
)
;
1
N/A
is
($_,
'abcdefghijklmnopq'
,
'make sure not to clobber $_ on init'
)
;