view release on metacpan or  search on metacpan

lib/CGI/Buffer.pm  view on Meta::CPAN

			$info = CGI::Info->new() or croak 'Failed to create CGI::Info object';
		}
	}

	my $path = $info->script_path();
	unless(defined($path)) {
		croak 'Failed to retrieve script path';
		return;
	}

	my @statb = stat($path);
	$script_mtime = $statb[9];	# Set script_mtime to the modification time of the script
	return $script_mtime;
}

sub _should_gzip
{
	if($compress_content && ($ENV{'HTTP_ACCEPT_ENCODING'} || $ENV{'HTTP_TE'})) {
		if(scalar(@content_type)) {
			if($content_type[0] ne 'text') {
				return '';