view release on metacpan or  search on metacpan

patches/LWPng-0.24-patch-1  view on Meta::CPAN

+ 	my $content_type = guess_media_type($path, $res);
+ 	unless ($content_type =~ /^text/i) {
+ 	    binmode(FILE);
+ 	}
+ 
  	my $now = time;
  
  	$res->date($now);
***************
*** 95,101 ****
  	my $uname = ($has_getpwuid ? getpwuid($uid) : undef) || $uid;
  	my $gname = ($has_getgrgid ? getgrgid($gid) : undef) || $gid;
  
! 	# far more than you ever wanted to know
  	$res->header("INode" => sprintf("[%04x]:%d", $dev, $ino)) if $ino;
  	$res->header("Owner" => $uname);
  	$res->header("Group" => $gname);
--- 105,111 ----
  	my $uname = ($has_getpwuid ? getpwuid($uid) : undef) || $uid;
  	my $gname = ($has_getgrgid ? getgrgid($gid) : undef) || $gid;
  
! 	# Far more than you ever wanted to know.
  	$res->header("INode" => sprintf("[%04x]:%d", $dev, $ino)) if $ino;
  	$res->header("Owner" => $uname);
  	$res->header("Group" => $gname);
***************
*** 105,114 ****
  	$res->header("Last-Accessed" => time2str($atime));
  	$res->header("Status-Modified" => time2str($ctime));