[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) {