[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