From 85edcc5e7f630e639a03bed45f5d5f3cfddc3873 Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Thu, 1 Aug 2019 15:07:06 +0200
Subject: [PATCH] - fixed regex to match for windows related paths
---
bin/slubsipbuilder.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/bin/slubsipbuilder.pl b/bin/slubsipbuilder.pl
index 8dcdb43..b11d9d9 100755
--- a/bin/slubsipbuilder.pl
+++ b/bin/slubsipbuilder.pl
@@ -257,8 +257,8 @@ sub create_filecopyhash {
();
} else {
my $file=$File::Find::name;
- if ($file !~ m#^[-A-Za-z0-9_\./]+$#) {
- confess("file '$file' does not match regex '^[-A-Za-z0-9_\./]+\$'");
+ if ($file !~ m#^[-A-Za-z0-9_\.:\\/]+$#) {
+ confess("file '$file' does not match regex '^[-A-Za-z0-9_\.:\\/]+\$'");
}
my $source = $file;
$filecopyhash{$source}->{'source'}=$file;
--
GitLab