diff options
Diffstat (limited to 'VMS')
| -rw-r--r-- | VMS/VMSify-conf.pl | 2 | ||||
| -rw-r--r-- | VMS/translatesyms.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/VMS/VMSify-conf.pl b/VMS/VMSify-conf.pl index d3be6a29e7..9890362d5b 100644 --- a/VMS/VMSify-conf.pl +++ b/VMS/VMSify-conf.pl @@ -7,7 +7,7 @@ my @directory_vars = ( "dir", "certs", "crl_dir", "new_certs_dir" ); my @file_vars = ( "database", "certificate", "serial", "crlnumber", "crl", "private_key", "RANDFILE" ); while(<STDIN>) { - chomp; + s|\R$||; foreach my $d (@directory_vars) { if (/^(\s*\#?\s*${d}\s*=\s*)\.\/([^\s\#]*)([\s\#].*)$/) { $_ = "$1sys\\\$disk:\[.$2$3"; diff --git a/VMS/translatesyms.pl b/VMS/translatesyms.pl index 8ffdbd8aa8..de3db6ccaf 100644 --- a/VMS/translatesyms.pl +++ b/VMS/translatesyms.pl @@ -28,7 +28,7 @@ my %translations = (); open DEMANGLER_DATA, $ARGV[0] or die "Couldn't open $ARGV[0]: $!\n"; while(<DEMANGLER_DATA>) { - chomp; + s|\R$||; (my $translated, my $original) = split /\$/; $translations{$original} = $translated.'$'; } |