X-Git-Url: https://code.wpia.club/?a=blobdiff_plain;f=lib%2Fopenssl%2Fcrypto%2Flhash%2Fnum.pl;h=8a8c42c8a030819d1e511110cba3230009ea91c2;hb=02ed66432c92de70694700164f986190aad3cbc5;hp=30fedf9cd5ad8ae6e83fb290d572041bb7129fa9;hpb=89016837dcbf2775cd15dc8cbaba00dc6379f86e;p=cassiopeia.git

diff --git a/lib/openssl/crypto/lhash/num.pl b/lib/openssl/crypto/lhash/num.pl
index 30fedf9..8a8c42c 100644
--- a/lib/openssl/crypto/lhash/num.pl
+++ b/lib/openssl/crypto/lhash/num.pl
@@ -1,11 +1,17 @@
-#!/usr/local/bin/perl
+#! /usr/bin/env perl
+# Copyright 1995-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
 
 #node     10 ->   4
 
 while (<>)
 	{
 	next unless /^node/;
-	chop;
+	s|\R$||;                # Better chomp
 	@a=split;
 	$num{$a[3]}++;
 	}