added utils speedup patch Resolves: #557564

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

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