Skip to content
Snippets Groups Projects
Commit 85edcc5e authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- fixed regex to match for windows related paths

parent f97b1ccf
No related branches found
No related tags found
No related merge requests found
...@@ -257,8 +257,8 @@ sub create_filecopyhash { ...@@ -257,8 +257,8 @@ sub create_filecopyhash {
(); ();
} else { } else {
my $file=$File::Find::name; my $file=$File::Find::name;
if ($file !~ m#^[-A-Za-z0-9_\./]+$#) { if ($file !~ m#^[-A-Za-z0-9_\.:\\/]+$#) {
confess("file '$file' does not match regex '^[-A-Za-z0-9_\./]+\$'"); confess("file '$file' does not match regex '^[-A-Za-z0-9_\.:\\/]+\$'");
} }
my $source = $file; my $source = $file;
$filecopyhash{$source}->{'source'}=$file; $filecopyhash{$source}->{'source'}=$file;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment