From fec038344e05b4fe1b369a979b9ab224343297dd Mon Sep 17 00:00:00 2001
From: r <rocky@gnu.org>
Date: Sun, 25 Mar 2012 18:17:45 -0400
Subject: [PATCH] Get rid of 'Using an array as a reference is deprecated in
 Psh/StrategyBunch.pm'

---
 lib/Psh/Strategy/Darwin_apps.pm | 2 +-
 lib/Psh/Strategy/Executable.pm  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Psh/Strategy/Darwin_apps.pm b/lib/Psh/Strategy/Darwin_apps.pm
index cbcbb1d..8c4879e 100644
--- a/lib/Psh/Strategy/Darwin_apps.pm
+++ b/lib/Psh/Strategy/Darwin_apps.pm
@@ -44,7 +44,7 @@ sub _recursive_search {
 
 
 sub applies {
-	my $com= @{$_[2]}->[0];
+	my $com= $_[2]->[0];
 	if ($com !~ m/$Psh::which_regexp/) { return ''; }
 	my $path=$ENV{APP_PATH}||'/Applications';
 	my @path= split /:/, $path;
diff --git a/lib/Psh/Strategy/Executable.pm b/lib/Psh/Strategy/Executable.pm
index 7d09119..7767082 100644
--- a/lib/Psh/Strategy/Executable.pm
+++ b/lib/Psh/Strategy/Executable.pm
@@ -24,7 +24,7 @@ sub runs_before {
 }
 
 sub applies {
-	my $com= @{$_[2]}->[0];
+	my $com= $_[2]->[0];
 	my $executable= Psh::Util::which($com);
 	return $executable if defined $executable;
 	return '';