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

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Fri Nov 9 17:09:02 2001


User:      heins
Date:      2001-11-09 22:08:02 GMT
Modified:  lib/Vend Config.pm
Log:
	* Fix bug (non-localization of assigned $_) which could cause it
	  to bomb in certain calling contexts.

Revision  Changes    Path
2.14      +3 -3      interchange/lib/Vend/Config.pm


rev 2.14, prev_rev 2.13
Index: Config.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Config.pm,v
retrieving revision 2.13
retrieving revision 2.14
diff -u -r2.13 -r2.14
--- Config.pm	2001/10/30 06:10:16	2.13
+++ Config.pm	2001/11/09 22:08:02	2.14
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.13 2001/10/30 06:10:16 jon Exp $
+# $Id: Config.pm,v 2.14 2001/11/09 22:08:02 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -95,7 +95,7 @@
 use Vend::Parse;
 use Vend::Util;
 
-$VERSION = substr(q$Revision: 2.13 $, 10);
+$VERSION = substr(q$Revision: 2.14 $, 10);
 
 my %CDname;
 
@@ -2183,7 +2183,7 @@
 	($n, $dur) = ($str =~ m/(\d+)[\s\0]*(\w+)?/);
 	return undef unless defined $n;
 	if (defined $dur) {
-		$_ = $dur;
+		local($_) = $dur;
 		if (m/^s|sec|secs|second|seconds$/i) {
 		}
 		elsif (m/^m|min|mins|minute|minutes$/i) {