--- nfo/perl/scripts/umltools/ConfigPatcher/Handlers.pm	2002/10/22 02:25:56	1.1
+++ nfo/perl/scripts/umltools/ConfigPatcher/Handlers.pm	2002/11/03 01:20:19	1.2
@@ -38,12 +38,14 @@
   my $string = shift;
   my $rules = shift;
 
+  our $ris_result = 1;
+
   if (ref $rules eq 'HASH') {
     my @re_find = keys %{$rules};
     # replace all keys with substitutes from hash "%re_table"
     foreach my $find (@re_find) {
       my $replace = $rules->{$find};
-      $string =~ s/$find/$replace/g;
+      $ris_result &= ($string =~ s/$find/$replace/g);
     }
   }
   
@@ -51,7 +53,7 @@
     foreach my $rule (@{$rules}) {
       my $find    = $rule->[0];
       my $replace = $rule->[1];
-      $string =~ s/$find/$replace/g;
+      $ris_result &= ($string =~ s/$find/$replace/g);
     }
   }