[E-p-i-c-commits] org.epic.debug dump_args.pl, NONE, 1.1 dump_internal_vars.pl, 1.1, 1.2

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

Update of /cvsroot/e-p-i-c/org.epic.debug
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv7533

Modified Files:
	dump_internal_vars.pl 
Added Files:
	dump_args.pl 
Log Message:
Implemented feature request [ 2431423 ] Show @_ in Variables view.

--- NEW FILE: dump_args.pl ---
;{    
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
    
my $savout = select($DB::OUT);
my $savbuf = $|;
$| = 0;
&dumpvar_epic::dump_array(\@_);
$| = $savbuf;
print "";
select($savout);
};

Index: dump_internal_vars.pl
===================================================================
RCS file: /cvsroot/e-p-i-c/org.epic.debug/dump_internal_vars.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- dump_internal_vars.pl	15 Dec 2008 16:33:45 -0000	1.1
+++ dump_internal_vars.pl	15 Dec 2008 18:03:24 -0000	1.2
@@ -2,6 +2,7 @@
 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;
 
 my $savout = select($DB::OUT);
+dumpvar_epic::_dump_entity('@_', \@_);
 dumpvar_epic::dump_package_vars();
 select($savout);
 };