[interchange-cvs] interchange - heins modified lib/Vend/Search.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Sun Aug 11 11:53:00 2002
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;