Print <ABSENT> if a STACK is NULL.

[openssl.git] / util / copy.pl

diff --git a/util/copy.pl b/util/copy.pl
index eba6d5815e9cef6b312e71cdee6f5642b2ac06af..ef4d8708e24789cc3cfc50fa77ca5f4c7481bbbe 100644 (file)
--- a/util/copy.pl
+++ b/util/copy.pl
@@ -1,4 +1,11 @@
-#!/usr/local/bin/perl
+#! /usr/bin/env perl
+# Copyright 2005-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 Fcntl;
 
@@ -19,7 +26,7 @@ foreach $arg (@ARGV) {
                next;
                }
        $arg =~ s|\\|/|g;       # compensate for bug/feature in cygwin glob...
-       foreach (glob $arg)
+       foreach (glob qq("$arg"))
                {
                push @filelist, $_;
                }