From 8da2a43eb1fa54b398e59870b8b214eea1983598 Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Wed, 16 Nov 2011 14:51:38 +0000
Subject: [PATCH] Fix chkstow.t

---
 chkstow.in  | 3 +--
 t/chkstow.t | 4 ++--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/chkstow.in b/chkstow.in
index 2219875..f14ec25 100755
--- a/chkstow.in
+++ b/chkstow.in
@@ -60,8 +60,7 @@ sub check_stow {
         delete $Package{'..'};
 
         if (keys %Package) {
-            local $,="\n";
-            print sort(keys %Package), "\n";
+            print map "$_\n", sort(keys %Package);
         }
     }
     return;
diff --git a/t/chkstow.t b/t/chkstow.t
index f75a88a..f38de57 100755
--- a/t/chkstow.t
+++ b/t/chkstow.t
@@ -79,7 +79,7 @@ $SIG{'__WARN__'} = sub { };
 @ARGV = ('-t', '.', '-l',);
 stdout_like(
     \&run_chkstow,
-    qr{emacs$perl$stow}xms,
+    qr{emacs\nperl\nstow\n}xms,
     "List packages");
 
 @ARGV = ('-t', '.', '-b',);
@@ -111,5 +111,5 @@ stdout_like(
 
 @ARGV = ('-b',);
 process_options();
-ok($Target == q{/usr/local},
+ok($::Target == q{/usr/local},
     "Default target is /usr/local/");