Commit 8fed11e9 authored by Karl Kornel's avatar Karl Kornel
Browse files

Try a regexp that doesn't match whitespace

parent a9f2ef85

bbox-workflow

+1 −1
Original line number Diff line number Diff line
@@ -436,7 +436,7 @@ sub email_recipients { 
	while (my $line = <$email_handle>) {

		# Remove any line endings.  We need to do this specially in case

		# the file was modified on Windows.

		$line =~ s{\A(.+)[\r\n]*\z}{$1}xims;

		$line =~ s{\A(\S+)[\r\n]*\z}{$1}xims;



		# Skip blank lines and comments

		next if $line =~ m{\A\s+\z}xims;