X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=VMS%2FVMSify-conf.pl;h=21eff113f8506512e8b854d3d252f13829d2cb39;hp=d3be6a29e7f43ff071446d94f3b6286f049d3973;hb=a8c1c7040aabdb78f9bec21ba16be8f262de1444;hpb=2faa930bb0462b81713b6fbf1afc72515c7ef289

diff --git a/VMS/VMSify-conf.pl b/VMS/VMSify-conf.pl
index d3be6a29e7..21eff113f8 100644
--- a/VMS/VMSify-conf.pl
+++ b/VMS/VMSify-conf.pl
@@ -1,4 +1,11 @@
-#! /usr/bin/perl
+#! /usr/bin/env perl
+# Copyright 2004-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
 
 use strict;
 use warnings;
@@ -7,7 +14,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";