From: Stephan R. <ste...@us...> - 2005-08-10 13:28:09
|
Update of /cvsroot/e-p-i-c/org.epic.debug In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4250 Modified Files: dumpvar_epic.pm Log Message: functions for dumping variables moved from main:: to dumpvar_epic:: in module dumpvar_epic.pm Index: dumpvar_epic.pm =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.debug/dumpvar_epic.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- dumpvar_epic.pm 17 Dec 2004 07:13:28 -0000 1.3 +++ dumpvar_epic.pm 10 Aug 2005 13:28:01 -0000 1.4 @@ -43,7 +43,7 @@ local($text) = @_; return $TOKEN_NAME.buildString($text); } -sub main::dumpValue { +sub dumpValue { local %address; local $^W=0; (print buildString("undef")), return unless defined $_[0]; @@ -445,7 +445,7 @@ $subs{ shift() }; } -sub main::dumpvar_epic { +sub dumpvar_epic { my ($package,$m,@vars) = @_; local(%address,$key,$val,$^W); $m=-1; |