projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make update
[openssl.git]
/
util
/
ck_errf.pl
diff --git
a/util/ck_errf.pl
b/util/ck_errf.pl
index 1a8665ab6a1b45976baeb7287c58be64e91ed1a9..01ed905fe5719932476345ace156be4c9fb293ed 100755
(executable)
--- a/
util/ck_errf.pl
+++ b/
util/ck_errf.pl
@@
-1,8
+1,14
@@
-#!/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
+
# This is just a quick script to scan for cases where the 'error'
# function name in a XXXerr() macro is wrong.
# This is just a quick script to scan for cases where the 'error'
# function name in a XXXerr() macro is wrong.
-#
+#
# Run in the top level by going
# perl util/ck_errf.pl */*.c */*/*.c
#
# Run in the top level by going
# perl util/ck_errf.pl */*.c */*/*.c
#
@@
-21,7
+27,7
@@
foreach $file (@ARGV)
$func="";
while (<IN>)
{
$func="";
while (<IN>)
{
- if (!/;$/ && /^\**([a-zA-Z].*[\s*])?([A-Za-z_0-9]+)\(.*([),]|$)/)
+ if (!/;$/ && /^\**([a-zA-Z
_
].*[\s*])?([A-Za-z_0-9]+)\(.*([),]|$)/)
{
/^([^()]*(\([^()]*\)[^()]*)*)\(/;
$1 =~ /([A-Za-z_0-9]*)$/;
{
/^([^()]*(\([^()]*\)[^()]*)*)\(/;
$1 =~ /([A-Za-z_0-9]*)$/;