v3.02 release

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

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 7563ba5963760e78724d960d1f6064979e73fbe7..9d0c0a9e5e5f59e00ddc845644af5c5966dfffda 100644 (file)
--- a/PLP/Tie/Print.pm
+++ b/PLP/Tie/Print.pm
@@ -19,7 +19,7 @@ sub WRITE { undef; }
 
 sub PRINT {
     my ($self, @param) = @_;
-    PLP::SendHeaders() unless $PLP::sentheaders;
+    PLP::sendheaders() unless $PLP::sentheaders;
     print STDOUT @param;
     select STDOUT;
 }