X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/b76b015b41c31d18044c5f95b4416329ba1507db..a5521fb1820cc67ab3d7c0fe728ef36b0b379a3f:/PLP/Tie/Print.pm

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 83b5c76..ef537a0 100644
--- a/PLP/Tie/Print.pm
+++ b/PLP/Tie/Print.pm
@@ -17,19 +17,19 @@ sub TIEHANDLE { bless \my $dummy, $_[0] }
 sub WRITE { undef }
 
 sub PRINT {
-    shift;
-    return unless grep length, @_;
-    PLP::sendheaders() unless $PLP::sentheaders;
-    print STDOUT @_;
-    select STDOUT;
+	shift;
+	return unless grep length, @_;
+	PLP::sendheaders() unless $PLP::sentheaders;
+	print STDOUT @_;
+	select STDOUT;
 }
 
 sub PRINTF {
-    shift;
-    return unless length $_[0];
-    PLP::sendheaders() unless $PLP::sentheaders;
-    printf STDOUT @_;
-    select STDOUT;
+	shift;
+	return unless length $_[0];
+	PLP::sendheaders() unless $PLP::sentheaders;
+	printf STDOUT @_;
+	select STDOUT;
 }
 
 sub READ { undef }