summaryrefslogtreecommitdiffstats
path: root/VMS
diff options
context:
space:
mode:
Diffstat (limited to 'VMS')
-rw-r--r--VMS/VMSify-conf.pl2
-rw-r--r--VMS/translatesyms.pl2
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.'$';
}