[interchange-cvs] interchange - heins modified code/SystemTag/catch.coretag

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2002-07-07 03:52:57 GMT
Modified:  code/SystemTag catch.coretag
Log:
* Add option, [catch error-scratch=3Dvarname], to allow catch tag to flag
  an error in scratch space (i.e. mv_route_failed for Route).

Revision  Changes    Path
1.4       +4 -0      interchange/code/SystemTag/catch.coretag


rev 1.4, prev_rev 1.3
Index: catch.coretag
=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: /anon_cvs/repository/interchange/code/SystemTag/catch.coretag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- catch.coretag	28 Jun 2002 19:56:43 -0000	1.3
+++ catch.coretag	7 Jul 2002 03:52:57 -0000	1.4
@@ -62,6 +62,10 @@
 	if($opt->{error_set}) {
 		set_error($body, $opt->{error_set});
 	}
+	if($opt->{error_scratch}) {
+		$::Scratch->{$opt->{error_scratch}} =3D 1;
+	}
+
 	return '' if $opt->{hide};
 	return $body;
 }