X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/3635c4ef0b6ceb2d7e95e66adbac3a8b66066521..58ad0f73721365480cd2c2bc844af04146ba1941:/lib/PLP/Backend/CGI.pm

diff --git a/lib/PLP/Backend/CGI.pm b/lib/PLP/Backend/CGI.pm
index e952c5a..3acf63d 100644
--- a/lib/PLP/Backend/CGI.pm
+++ b/lib/PLP/Backend/CGI.pm
@@ -3,7 +3,7 @@ package PLP::Backend::CGI;
 use strict;
 use warnings;
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 use PLP;
 
@@ -20,7 +20,7 @@ sub init {
 		my $path_info = '';
 		while (not -f $path) {
 			if (not $path =~ s/(\/+[^\/]*)$//) {
-				printf STDERR "PLP: Not found: $path$path_info ($ENV{REQUEST_URI})\n";
+				warn "PLP: Not found: $path$path_info ($ENV{REQUEST_URI})\n";
 				PLP::error(undef, 404);
 				return;
 			}
@@ -35,7 +35,7 @@ sub init {
 		$ENV{SCRIPT_NAME} = $rel;
 	}
 	elsif (not -f $ENV{SCRIPT_FILENAME}) {
-		print STDERR "PLP: Not found: $ENV{SCRIPT_FILENAME} ($ENV{REQUEST_URI})\n";
+		warn "PLP: Not found: $ENV{SCRIPT_FILENAME} ($ENV{REQUEST_URI})\n";
 		PLP::error(undef, 404);
 		return;
 	}
@@ -43,7 +43,7 @@ sub init {
 	$ENV{"PLP_$_"} = $ENV{"SCRIPT_$_"} for qw/NAME FILENAME/;
 
 	if (not -r $ENV{PLP_FILENAME}) {
-		print STDERR "PLP: Can't read: $ENV{PLP_FILENAME} ($ENV{REQUEST_URI})\n";
+		warn "PLP: Can't read: $ENV{PLP_FILENAME} ($ENV{REQUEST_URI})\n";
 		PLP::error(undef, 403);
 		return;
 	}