rpms/a2ps/devel a2ps-perl.patch,NONE,1.1 a2ps.spec,1.77,1.78

[Tim Waugh (twaugh)]

Author: twaugh

Update of /cvs/pkgs/rpms/a2ps/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv28101

Modified Files:
	a2ps.spec 
Added Files:
	a2ps-perl.patch 
Log Message:
* Wed Sep 26 2007 Tim Waugh <twaugh at redhat.com> 4.13b-69
- Try out a perl stylesheet speed improvement (bug #252183).


a2ps-perl.patch:

--- NEW FILE a2ps-perl.patch ---
diff -up a2ps-4.13/sheets/perl.ssh.perl a2ps-4.13/sheets/perl.ssh
--- a2ps-4.13/sheets/perl.ssh.perl	2007-09-26 10:30:43.000000000 +0100
+++ a2ps-4.13/sheets/perl.ssh	2007-09-26 10:47:47.000000000 +0100
@@ -106,9 +106,9 @@ operators are
     (/(s|tr)/			# 1. The command: `tr' or `s'
      /(([[:punct:]])/		# 2. The delimiter
      /(/			# 3. The *two* regexps
-     /(.|\\\\.)*/		#   First regexp
+     /(\\\\.)*/			#   First regexp
      /\\3/			#   Separator
-     /(.|\\\\.)*/		#   Second Regexp
+     /(\\\\.)*/			#   Second Regexp
      /)/			#
      /\\3)/			# Closer
      \1 Keyword_strong, \2 Plain),


Index: a2ps.spec
===================================================================
RCS file: /cvs/pkgs/rpms/a2ps/devel/a2ps.spec,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -r1.77 -r1.78
--- a2ps.spec	25 Sep 2007 17:12:06 -0000	1.77
+++ a2ps.spec	26 Sep 2007 09:49:17 -0000	1.78
@@ -1,7 +1,7 @@
 Summary: Converts text and other types of files to PostScript(TM)
 Name: a2ps
 Version: 4.13b
-Release: 68%{?dist}
+Release: 69%{?dist}
 License: GPLv2+
 Group: Applications/Publishing
 #Source0: ftp://ftp.enst.fr/pub/unix/a2ps/%{name}-%{version}.tar.gz 
@@ -22,6 +22,7 @@
 Patch6: a2ps-tmpdir.patch
 Patch7: a2ps-sort.patch
 Patch8: a2ps-iso5-minus.patch
+Patch9: a2ps-perl.patch
 # EUC-JP support
 Patch10: a2ps-4.13-eucjp.patch.bz2
 Patch11: a2ps-4.13-autoenc.patch
@@ -85,6 +86,7 @@
 %patch6 -p1 -b .tmpdir
 %patch7 -p1 -b .sort
 %patch8 -p1 -b .iso5-minus
+%patch9 -p1 -b .perl
 
 %patch10 -p1 -b .euc
 %patch11 -p1 -b .ae
@@ -267,6 +269,9 @@
 %dir %{_datadir}/a2ps
 
 %changelog
+* Wed Sep 26 2007 Tim Waugh <twaugh at redhat.com> 4.13b-69
+- Try out a perl stylesheet speed improvement (bug #252183).
+
 * Tue Sep 25 2007 Tim Waugh <twaugh at redhat.com> 4.13b-68
 - Make minus sign work in ISO-8859-5 (bug #252314).