Tatsuki SUGIURA
sugi****@users*****
2006年 8月 28日 (月) 19:00:46 JST
Index: slashjp/Slash/Utility/Environment/Environment.pm diff -u slashjp/Slash/Utility/Environment/Environment.pm:1.14 slashjp/Slash/Utility/Environment/Environment.pm:1.15 --- slashjp/Slash/Utility/Environment/Environment.pm:1.14 Fri Jul 14 10:54:25 2006 +++ slashjp/Slash/Utility/Environment/Environment.pm Mon Aug 28 19:00:45 2006 @@ -1,7 +1,7 @@ # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: Environment.pm,v 1.14 2006/07/14 01:54:25 sugi Exp $ +# $Id: Environment.pm,v 1.15 2006/08/28 10:00:45 sugi Exp $ package Slash::Utility::Environment; @@ -35,7 +35,7 @@ use base 'Exporter'; use vars qw($VERSION @EXPORT); -($VERSION) = ' $Revision: 1.14 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.15 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw( dbAvailable @@ -1907,7 +1907,7 @@ $special{$key}->($data); } else { for my $ri (@regints) { - $data = fixint($data) if /$ri/; + $data = fixint($data) if $ri =~ $key; } # convert input to internal character encoding @@ -3410,4 +3410,4 @@ =head1 VERSION -$Id: Environment.pm,v 1.14 2006/07/14 01:54:25 sugi Exp $ +$Id: Environment.pm,v 1.15 2006/08/28 10:00:45 sugi Exp $
SRAD