From 50e79aabf512b265dbdc6147f7984fea59ba9dad Mon Sep 17 00:00:00 2001
From: Frederic Sapet <frederic.sapet@limagrain.com>
Date: Tue, 1 Dec 2020 10:11:13 +0100
Subject: [PATCH] -d and -w test operators do not seem to respect the acls. use
 filetest pragma

---
 src/perl5/Bio/JBrowse/Cmd/IndexNames.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm b/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm
index eec797b131..75e7caac51 100644
--- a/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm
+++ b/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm
@@ -19,6 +19,9 @@ use File::Path ();
 use File::Temp ();
 use List::Util ();
 
+# -d and -w are aware of ACLs in run() function below
+use filetest 'access';
+
 use GenomeDB ();
 use Bio::GFF3::LowLevel qw/gff3_parse_feature/;
 use Bio::JBrowse::HashStore ();