From c011dd1309f98b779e9234e49a58e63b99c84c21 Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Thu, 26 Nov 2015 14:11:31 +0100 Subject: This shouldn't be a regex. chomp() and eq properly. --- SBO-Lib/lib/SBO/Lib.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'SBO-Lib/lib/SBO/Lib.pm') diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 81a796f..6570bda 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -710,7 +710,8 @@ sub get_src_dir { my $found = 0; seek $fh, 0, 0; SECOND: while (my $line = <$fh>) { - if ($line =~ /$ls/) { + chomp ($line); + if ($line eq $ls) { $found++; last SECOND; } -- cgit v1.2.3