X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/47ba656450de67f0bdf3e01dd920e744c2fa9218..359c6d5ee92803be76df630b5040f5087b4e0e3e:/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 }