[interchange] Change operator to Perl 5.8-compatible one

David Christensen <[email protected]> Fri, 23 Jun 2017 13:02:44 +0000

Newsgroups	gmane.comp.web.interchange.cvs
Message-ID	<[email protected]>

commit 6956a16d2c1eb28e017f58a41c51ff1d996fbd99
Author: David Christensen <[email protected]>
Date:   Fri Jun 23 08:01:58 2017 -0500

    Change operator to Perl 5.8-compatible one

 lib/Vend/File.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/File.pm b/lib/Vend/File.pm
index 6d9d4ee..b749e1e 100644
--- a/lib/Vend/File.pm
+++ b/lib/Vend/File.pm
@@ -711,7 +711,7 @@ sub allowed_file {
 	$Vend::File::errstr = '';
 	if(	$Global::NoAbsolute
 			and
-		$pat = $Global::AllowedFileRegex->{$Vend::Cat // ''}
+		$pat = $Global::AllowedFileRegex->{$Vend::Cat || ''}
 			and
 		$fn !~ $pat
 			and