From 342a3c8df7306ffb09d58b49a283813293017541 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand - Tux" <h.m.brand@xs4all.nl>
Date: Thu, 27 Feb 2014 09:37:47 +0100
Subject: [PATCH] Old(er) perls (e.g. 5.8.0) do not like \my $x, more

---
 Peek.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Peek.pm b/Peek.pm
index 780d43a..0692ddc 100644
--- a/Peek.pm
+++ b/Peek.pm
@@ -116,7 +116,8 @@ sub DTidy
     local $Data::Dumper::Useqq     = 0;
 
     my $s = Data::Dumper::Dumper @_;
-    Perl::Tidy::perltidy (source => \$s, destination => \my $t, argv => [
+    my $t;
+    Perl::Tidy::perltidy (source => \$s, destination => \$t, argv => [
 	# Disable stupid options in ~/.perltidyrc
 	# people do so, even for root
 	"--no-backup-and-modify-in-place",
-- 
2.11.4.GIT