[interchange-cvs] interchange - heins modified code/UI_Tag/dump_session.coretag

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Fri Sep 27 02:59:01 2002


User:      heins
Date:      2002-09-27 06:58:20 GMT
Modified:  code/UI_Tag dump_session.coretag
Log:
* Prettier external session dumps.

Revision  Changes    Path
1.3       +7 -1      interchange/code/UI_Tag/dump_session.coretag


rev 1.3, prev_rev 1.2
Index: dump_session.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: /var/cvs/interchange/code/UI_Tag/dump_session.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- dump_session.coretag	16 Sep 2002 23:06:31 -0000	1.2
+++ dump_session.coretag	27 Sep 2002 06:58:19 -0000	1.3
@@ -30,7 +30,13 @@
 	else {
 		my $fn =3D Vend::Util::get_filename($name, 2, 1, $Vend::Cfg->{SessionDat=
abase});
 		return '' unless -f $fn;
-		return uneval(Vend::Util::eval_file($fn));
+		my $ref =3D Vend::Util::eval_file($fn);
+		my $out =3D '';
+		eval {=20
+			$out =3D Vend::Util::uneval($ref);
+		};
+		return uneval($ref) if $@;
+		return $out;
 	}
 }
 EOR