tags/v1_29/t/net/perl/noenv/test.pl - mod_perl - Git at Google

 #!perl
 shift->send_http_header("text/plain");

 unless($My::config_is_perl) {
     while (my($key,$val) = each %ENV) {
 	print "$key=$val\n";
     }
 }

 print "TOTAL: ", scalar keys %ENV;
	#!perl
	shift->send_http_header("text/plain");

	unless($My::config_is_perl) {
	while (my($key,$val) = each %ENV) {
	print "$key=$val\n";
	}
	}

	print "TOTAL: ", scalar keys %ENV;