From 3268ecb65d8d148ff1871966caa0fbd7df31f02f Mon Sep 17 00:00:00 2001
From: Brad Bowman <bsb@bereft.net>
Date: Sun, 5 Feb 2012 00:40:01 +1100
Subject: [PATCH] sub-clone fits now

---
 snippets/sub-clone.pl | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/snippets/sub-clone.pl b/snippets/sub-clone.pl
index 4c14eef..bd2c433 100644
--- a/snippets/sub-clone.pl
+++ b/snippets/sub-clone.pl
@@ -1,9 +1,6 @@
   use Sub::Clone;
   sub get_callback { return sub { "hi!" }; }
-
-  my $first = get_callback();
-  my $second = get_callback();
+  my $first = get_callback(); my $second = get_callback();
   my $third = clone_sub $second;
-
-  warn "$first == $second"; # prints the same refaddr
-  warn "$third != $second"; # prints the diff refaddr
+  print "# $first == $second\n"; # same refaddr
+  print "# $third != $second\n"; # diff refaddr