From d577d8eacb0458af1f71c2ff4b69a7bacfef5595 Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Mon, 17 Jan 2005 11:49:13 +0000
Subject: [PATCH] Allow trailing whitespace in input file.
---
scripts/CopyDBoverServer.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/scripts/CopyDBoverServer.pl b/scripts/CopyDBoverServer.pl
index a187fa01a3..eae6a6f2d9 100755
--- a/scripts/CopyDBoverServer.pl
+++ b/scripts/CopyDBoverServer.pl
@@ -93,7 +93,7 @@ open F, $input_file ||
while (my $line = <F>) {
next if ($line =~ /^\#.*$/);
- if ($line =~ /^(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\S+)$/) {
+ if ($line =~ /^(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s*$/) {
my ($src_srv,$src_port,$src_db,$dest_srv,$dest_port,$dest_db) = ($1,$2,$3,$4,$5,$6);
unless ($dest_srv =~ /^$generic_working_host.*$/) {
my $generic_destination_server = $dest_srv;
--
GitLab