You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
2.0 KiB
57 lines
2.0 KiB
# --- SDE-COPYRIGHT-NOTE-BEGIN --- |
|
# This copyright note is auto-generated by ./scripts/Create-CopyPatch. |
|
# |
|
# Filename: package/.../heimdal/roken-h-process.pl.patch |
|
# Copyright (C) 2014 The OpenSDE Project |
|
# |
|
# More information can be found in the files COPYING and README. |
|
# |
|
# This patch file is dual-licensed. It is available under the license the |
|
# patched project is licensed under, as long as it is an OpenSource license |
|
# as defined at http://www.opensource.org/ (e.g. BSD, X11) or under the terms |
|
# of the GNU General Public License as published by the Free Software |
|
# Foundation; either version 2 of the License, or (at your option) any later |
|
# version. |
|
# --- SDE-COPYRIGHT-NOTE-END --- |
|
|
|
Update roken-h-process.pl to the latest available version including upstream |
|
bugfixes. |
|
|
|
That is the diff between the shipped version within the version 1.5.3 tarball |
|
and currently latest version available: |
|
https://github.com/heimdal/heimdal/blob/97f1e2efb5754b953905ea1a41a5c469765f6267/cf/roken-h-process.pl |
|
|
|
diff --git a/cf/roken-h-process.pl b/cf/roken-h-process.pl |
|
index a54c921..e797dd2 100644 |
|
--- a/cf/roken-h-process.pl |
|
+++ b/cf/roken-h-process.pl |
|
@@ -1,10 +1,10 @@ |
|
#!/usr/bin/perl |
|
|
|
-require 'getopts.pl'; |
|
+use Getopt::Std; |
|
|
|
my $debug = 0; |
|
|
|
-Getopts('dc:p:o:') || die "foo"; |
|
+getopts('dc:p:o:') || die "foo"; |
|
|
|
if ($opt_d) { |
|
$debug = 1; |
|
@@ -145,12 +145,15 @@ sub parse_if |
|
if (m/^\s*$/) { |
|
print "end $_\n" if ($debug); |
|
return 1; |
|
+ } elsif (m/^\(([^&]+)\&\&(.*)\)\s*\|\|\s*\(([^&]+)\&\&(.*)\)$/) { |
|
+ print "($1 and $2) or ($3 and $4)\n" if ($debug); |
|
+ return ((parse_if($1) and parse_if($2)) or (parse_if($3) and parse_if($4))); |
|
} elsif (m/^([^&]+)\&\&(.*)$/) { |
|
print "$1 and $2\n" if ($debug); |
|
return parse_if($1) and parse_if($2); |
|
} elsif (m/^([^\|]+)\|\|(.*)$/) { |
|
print "$1 or $2\n" if ($debug); |
|
- return parse_if($1) or parse_if($2); |
|
+ return (parse_if($1) or parse_if($2)); |
|
} elsif (m/^\s*(\!)?\s*defined\((\w+)\)/) { |
|
($neg, $var) = ($1, $2); |
|
print "def: ${neg}-defined(${var})\n" if ($debug);
|
|
|