From 4ba4bb333a655eec9028630c1b8d7cfa26df96db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ji=C5=99=C3=AD=20Moskov=C4=8D=C3=A1k?=
 <jmoskovc@fedoraproject.org>
Date: Fri, 22 Jan 2010 09:48:31 +0000
Subject: [PATCH] added utils speedup patch Resolves: #557564

---
 dejagnu-1.4.4-utils-speedup.patch | 20 ++++++++++++++++++++
 dejagnu.spec                      |  8 +++++++-
 2 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 dejagnu-1.4.4-utils-speedup.patch

diff --git a/dejagnu-1.4.4-utils-speedup.patch b/dejagnu-1.4.4-utils-speedup.patch
new file mode 100644
index 0000000..2823d5d
--- /dev/null
+++ b/dejagnu-1.4.4-utils-speedup.patch
@@ -0,0 +1,20 @@
+--- dejagnu-1.4.4/lib/utils.exp	2009-10-16 12:58:38.000000000 +0200
++++ dejagnu-1.4.4/lib/utils.exp	2010-01-21 21:12:54.144855458 +0100
+@@ -106,7 +106,7 @@ proc find { rootdir pattern } {
+     foreach i $dirs {
+ 	verbose "Looking in $i" 3
+ 	foreach match [glob -nocomplain $i/$pattern] {
+-	    if ![file isdirectory $match] {
++	    if {![file isdirectory $match]} {
+ 		lappend files $match
+ 		verbose "Adding $match to file list" 3
+ 	    }
+@@ -216,7 +216,7 @@ proc prune { list pattern } {
+     set tmp {}
+     foreach i $list {
+ 	verbose "Checking pattern \"$pattern\" against $i" 3
+-	if ![string match $pattern $i] {
++	if {![string match $pattern $i]} {
+ 	    lappend tmp $i
+ 	} else {
+ 	    verbose "Removing element $i from list" 3
diff --git a/dejagnu.spec b/dejagnu.spec
index eb99379..046624a 100644
--- a/dejagnu.spec
+++ b/dejagnu.spec
@@ -1,7 +1,7 @@
 Summary: A front end for testing other programs
 Name: dejagnu
 Version: 1.4.4
-Release: 16%{?dist}
+Release: 17%{?dist}
 Epoch: 1
 License: GPLv2+
 Source: ftp://ftp.gnu.org/gnu/dejagnu/dejagnu-%{version}.tar.gz
@@ -15,6 +15,7 @@ BuildRequires: expect screen texinfo
 Patch1: dejagnu-1.4.4-smp-1.patch
 Patch3: dejagnu-1.4.4-testsuite.patch
 Patch4: dejagnu-1.4.4-runtest.patch
+Patch5: dejagnu-1.4.4-utils-speedup.patch
 
 %description
 DejaGnu is an Expect/Tcl based framework for testing other programs.
@@ -29,6 +30,7 @@ into software development).
 %patch1 -p1
 %patch3 -p1
 %patch4 -p1
+%patch5 -p1
 
 %build
 %configure -v
@@ -78,6 +80,10 @@ rm -rf $RPM_BUILD_ROOT
 %{_infodir}/*
 
 %changelog
+* Fri Jan 22 2010 Jiri Moskovcak <jmoskovc@redhat.com> - 1.4.4-17
+- added utils speedup patch from jakub@redhat.com
+- Resolves: #557564
+
 * Fri Oct 16 2009 Jiri Moskovcak <jmoskovc@redhat.com> - 1.4.4-16
 - fixed installation with --excludedocs rhbz#515949