[interchange-cvs] interchange - heins modified lib/Vend/Search.pm

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-08-11 15:52:30 GMT
Modified:  lib/Vend Search.pm
Log:
* Prevent warning that comes up in Perl 5.8.

Revision  Changes    Path
2.10      +3 -2      interchange/lib/Vend/Search.pm


rev 2.10, prev_rev 2.9
Index: Search.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/lib/Vend/Search.pm,v
retrieving revision 2.9
retrieving revision 2.10
diff -u -r2.9 -r2.10
--- Search.pm	23 Jun 2002 01:20:10 -0000	2.9
+++ Search.pm	11 Aug 2002 15:52:30 -0000	2.10
@@ -1,6 +1,6 @@
 # Vend::Search - Base class for search engines
 #
-# $Id: Search.pm,v 2.9 2002/06/23 01:20:10 jon Exp $
+# $Id: Search.pm,v 2.10 2002/08/11 15:52:30 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -21,7 +21,7 @@
=20
 package Vend::Search;
=20
-$VERSION =3D substr(q$Revision: 2.9 $, 10);
+$VERSION =3D substr(q$Revision: 2.10 $, 10);
=20
 use strict;
 use vars qw($VERSION);
@@ -1156,6 +1156,7 @@
=20
 	# Prime sort routine
 	use locale;
+	local($^W);
 	sort { $routine } ('30','31') or 1;
=20
 	@$target =3D sort { &$routine } @$target;