data-pluginfile-checkins

[Chilts <and...@us...>]

Update of /cvsroot/data-pluginfile/data-pluginfiles/Data
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23090/Data

Modified Files:
	PluginFiles.pm 
Log Message:
- addition of much nicer unit test (removal of old data files)
- bug fix in the way an incorrect file was loaded (returns undef properly)


Index: PluginFiles.pm
===================================================================
RCS file: /cvsroot/data-pluginfile/data-pluginfiles/Data/PluginFiles.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** PluginFiles.pm	30 Apr 2005 00:04:13 -0000	1.1.1.1
--- PluginFiles.pm	30 Apr 2005 04:48:29 -0000	1.2
***************
*** 35,39 ****
  
     $self->{filename} = $filename;
!    $self->_process_file();
  
     return $self;
--- 35,41 ----
  
     $self->{filename} = $filename;
!    unless ( $self->_process_file() ) {
!       return;
!    }
  
     return $self;
***************
*** 78,82 ****
  
        my ($name, $params) = $self->_parse_line($line);
!       return undef unless defined $name and defined $params;
  
        #print "name=$name, params=$params\n";
--- 80,84 ----
  
        my ($name, $params) = $self->_parse_line($line);
!       return unless defined $name and defined $params;
  
        #print "name=$name, params=$params\n";
***************
*** 132,135 ****
--- 134,140 ----
     $line =~ /^(\w+):\s+(.*)$/;
     my $plugin = $1;
+    unless ( defined $plugin ) {
+       return;
+    }
     my @params = shellwords($2);