[E-p-i-c-commits] org.epic.perleditor-test/workspace/.metadata/.plugins/org.epic.debug dumpvar_epic.pm, 1.1, 1.2

[Jan P. <jp...@us...>]

Update of /cvsroot/e-p-i-c/org.epic.perleditor-test/workspace/.metadata/.plugins/org.epic.debug
In directory sc8-pr-cvs17:/tmp/cvs-serv30480/workspace/.metadata/.plugins/org.epic.debug

Modified Files:
	dumpvar_epic.pm 
Log Message:
Added a unit test for bug [ 1734893 ] Array of hashes does not display correctly in Variables.

Index: dumpvar_epic.pm
===================================================================
RCS file: /cvsroot/e-p-i-c/org.epic.perleditor-test/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- dumpvar_epic.pm	3 Jun 2007 15:17:48 -0000	1.1
+++ dumpvar_epic.pm	12 Jun 2007 21:35:00 -0000	1.2
@@ -69,7 +69,13 @@
     my $frame_index = shift;
     my $varexpr = shift;
 
-    my $h = eval { PadWalker::peek_my(3 + $frame_index) };     
+    my $h = eval { PadWalker::peek_my(3 + $frame_index) };
+{
+    use Data::Dumper;
+    open(FL,'>>/tmp/res');
+    print FL Dumper($h);
+    close(FL);
+}     
     if (!$@) { dump_hash(eval($varexpr)); }
 }