Mailing List Archive

commit 6956a16d2c1eb28e017f58a41c51ff1d996fbd99
Author: David Christensen <david@endpoint.com>
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

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs