From 1ba6c65c690ea900867f4c4abb714ed15c1f8eb0 Mon Sep 17 00:00:00 2001
From: "jkegl@cpan.org" <jkegl@cpan.org@88f4d9cd-8a04-0410-9d60-8f63309c3137>
Date: Sun, 17 May 2009 05:37:47 +0000
Subject: [PATCH] Perltidy fix.

---
 Test-Weaken/t/contents.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Test-Weaken/t/contents.t b/Test-Weaken/t/contents.t
index db0e415f5..3960480e5 100644
--- a/Test-Weaken/t/contents.t
+++ b/Test-Weaken/t/contents.t
@@ -36,7 +36,8 @@ sub construct_more_data {
 
 sub new {
     my ($class) = @_;
-    my $self = [];
+    my $scalar  = 42;
+    my $self    = \$scalar;
     $data{ $self + 0 }     = construct_data;
     $moredata{ $self + 0 } = construct_more_data;
     return bless $self, $class;