X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FNewlineHack.pm;h=1945199199ecb610f21e2c887cab6334e4852e8e;hp=076b8ac5401e851f704a513249ad671b1ba39992;hb=a66625d6c24801141f527e1c0bea3f8f7ea20239;hpb=296c23ff27911024929500d8b6f04cec5d711da4

diff --git a/lib/Devel/REPL/Plugin/NewlineHack.pm b/lib/Devel/REPL/Plugin/NewlineHack.pm
index 076b8ac..1945199 100644
--- a/lib/Devel/REPL/Plugin/NewlineHack.pm
+++ b/lib/Devel/REPL/Plugin/NewlineHack.pm
@@ -1,3 +1,5 @@
+# Original comment:
+#
 # Adds a newline after print. Some readlines need it some don't. I guess
 # we should clarify whether this is a bug and if so whose bug at some point
 # but this'll do for now ;)
@@ -7,12 +9,12 @@ package Devel::REPL::Plugin::NewlineHack;
 use Moose::Role;
 use namespace::clean -except => [ 'meta' ];
 
-after 'print' => sub {
-  # not fussed about args
-  my ($self) = @_;
-  my $fh = $self->out_fh;
-  print $fh "\n";
-};
+warn <<EOW;
+No longer required, extra newline automatically produced for Gnu readline
+implementation by Devel::REPL's print() method.
+
+This plugin will be removed at some point; please remove it from your config.
+EOW
 
 1;