[TWiki-Dev] twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki TestMaker.pm,1.3,1.4

[<cra...@us...>]

Update of /cvsroot/twikiplugins/twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki
In directory sc8-pr-cvs1:/tmp/cvs-serv17720/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki

Modified Files:
	TestMaker.pm 
Log Message:
Fixes for problems reported by Petric Frank

Index: TestMaker.pm
===================================================================
RCS file: /cvsroot/twikiplugins/twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki/TestMaker.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** TestMaker.pm	4 May 2003 13:12:23 -0000	1.3
--- TestMaker.pm	8 May 2003 20:56:13 -0000	1.4
***************
*** 32,40 ****
      chop($pwd);
      my ($p,$f,$l) = caller(1);
!     print STDERR "Prefs from $pwd/../../../../../data/TWiki/$plugin.txt\n";
      open PF,"<$pwd/../../../../../data/TWiki/$plugin.txt";
      while (<PF>) {
!       if ($_ =~ /^\s+\* Set (\w+) = ([^\r\n]+)/o) {
! 	$prefs{"${ucw}_$1"} = $2;
        }
      }
--- 32,42 ----
      chop($pwd);
      my ($p,$f,$l) = caller(1);
!     print STDERR "*** Prefs loaded from $pwd/../../../../../data/TWiki/$plugin.txt\n";
      open PF,"<$pwd/../../../../../data/TWiki/$plugin.txt";
      while (<PF>) {
!       if ($_ =~ /^\s+\* Set (\w+) = (.*)$/o) {
! 	my $at = $1;
! 	my $thng = $2;
! 	$prefs{"${ucw}_$at"} = $thng;
        }
      }