Remove a spurious \n in a perltie example,

noticed by Geoffrey Young.

p4raw-id: //depot/perl@22910

diff --git a/pod/perltie.pod b/pod/perltie.pod
index 30a0b1d..429a662 100644 (file)
--- a/pod/perltie.pod
+++ b/pod/perltie.pod
@@ -876,7 +876,7 @@ passed to the printf function.
     sub PRINTF {
         shift;
         my $fmt = shift;
-        print sprintf($fmt, @_)."\n";
+        print sprintf($fmt, @_);
     }
 
 =item READ this, LIST