Fix // in filenames, bug1610.

Author: wsnyder

Changes

@@ -8,6 +8,8 @@ indicates the contributor was also the author of the fix; Thanks!
 
 ****    Fix capital S for signed numbers, [Piotr Binkowski].
 
+****    Fix // in filenames, bug1610. [Peter Nelson]
+
 
 * Verilog::Language 3.468 2019-09-12
 

Getopt.pm

@@ -81,7 +81,7 @@ sub parameter_file {
     my $hold_fileline = $self->fileline();
     while (my $line = $fh->getline()) {
 	chomp $line;
-	$line =~ s/\/\/.*$//;
+	$line =~ s/(?:^|\s)\/\/.*$//;
 	next if $line =~ /^\s*$/;
 	$self->fileline("$filename:$.");
 	my @p = (split /\s+/,"$line ");