reindent remaining 4-space+tab@8 code

[perl/plp/.git] / PLP / Tie / Print.pm

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 83b5c76726f7b41f30dd4411634e973b5b5c2521..ef537a03a10a6a6bc7739fd87bfc4981d478340d 100644 (file)
--- 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 }