From 8d856fdbf5d4afaff210b1fbc9b2639ae54f6464 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 30 May 2013 06:29:42 -0500
Subject: make inline comments work

---
 lib/Reply/Plugin/Defaults.pm | 2 +-
 lib/Reply/Plugin/Hints.pm    | 2 +-
 lib/Reply/Plugin/Packages.pm | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm
index 507c830..c71d329 100644
--- a/lib/Reply/Plugin/Defaults.pm
+++ b/lib/Reply/Plugin/Defaults.pm
@@ -32,7 +32,7 @@ sub compile {
     my ($next, $line, %args) = @_;
 
     return eval_closure(
-        source      => "sub { $PREFIX; $line }",
+        source      => "sub {\n$PREFIX;\n$line\n}",
         terse_error => 1,
         %args,
     );
diff --git a/lib/Reply/Plugin/Hints.pm b/lib/Reply/Plugin/Hints.pm
index ea0e953..af557e3 100644
--- a/lib/Reply/Plugin/Hints.pm
+++ b/lib/Reply/Plugin/Hints.pm
@@ -29,7 +29,7 @@ sub mangle_line {
     my $self = shift;
     my ($line) = @_;
 
-    return "BEGIN { \$^H = \$" . __PACKAGE__ . "::hints; \%^H = \%\$" . __PACKAGE__ . "::hinthash; \${^WARNING_BITS} = \$" . __PACKAGE__ . "::warning_bits } $line; BEGIN { \$" . __PACKAGE__ . "::hints = \$^H; \$" . __PACKAGE__ . "::hinthash = \\\%^H; \$" . __PACKAGE__ . "::warning_bits = \${^WARNING_BITS} }";
+    return "BEGIN { \$^H = \$" . __PACKAGE__ . "::hints; \%^H = \%\$" . __PACKAGE__ . "::hinthash; \${^WARNING_BITS} = \$" . __PACKAGE__ . "::warning_bits }\n$line\n;BEGIN { \$" . __PACKAGE__ . "::hints = \$^H; \$" . __PACKAGE__ . "::hinthash = \\\%^H; \$" . __PACKAGE__ . "::warning_bits = \${^WARNING_BITS} }";
 }
 
 sub compile {
diff --git a/lib/Reply/Plugin/Packages.pm b/lib/Reply/Plugin/Packages.pm
index 6f3e32c..071e20b 100644
--- a/lib/Reply/Plugin/Packages.pm
+++ b/lib/Reply/Plugin/Packages.pm
@@ -17,7 +17,7 @@ sub mangle_line {
     my $self = shift;
     my ($line) = @_;
 
-    return "package $self->{package}; $line; BEGIN { \$" . __PACKAGE__ . "::package = __PACKAGE__ }";
+    return "package $self->{package};\n$line\n;BEGIN { \$" . __PACKAGE__ . "::package = __PACKAGE__ }";
 }
 
 sub compile {
-- 
cgit v1.2.3-54-g00ecf