diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-26 14:11:31 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-26 14:11:31 +0100 |
| commit | c011dd1309f98b779e9234e49a58e63b99c84c21 (patch) | |
| tree | 5fc4fcfb57db64e20b8322a3a4cba7d79c552ed3 /SBO-Lib/lib | |
| parent | 0c7b5269e0dd8a43a4cd8a9bd23191b27d2d9933 (diff) | |
| download | sbotools2-c011dd1309f98b779e9234e49a58e63b99c84c21.tar.xz | |
This shouldn't be a regex. chomp() and eq properly.
Diffstat (limited to 'SBO-Lib/lib')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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; } |