Changeset 29212

Timestamp:

Sep 22, 2010, 4:03:57 PM (16 years ago)

Author:

rhenders

Message:

Call to process() in sub-classes

Location:

trunk/ippToPsps/perl/ippToPsps

Files:

• Batch.pm (modified) (2 diffs)
• DetectionBatch.pm (modified) (1 diff)
• InitBatch.pm (modified) (1 diff)

trunk/ippToPsps/perl/ippToPsps/Batch.pm

@@ -136 +136 @@
     mkdir($self->{_batchDir}, 0777);
 
-    $self->process();
-
     return $self;
 }
@@ -186 +184 @@
 
     print "* Unknown distribution group: '$self->{_distGroup}'\n";
-    return undef;
+    return $self->{_distGroup};
 }
 

trunk/ippToPsps/perl/ippToPsps/DetectionBatch.pm

@@ -64 +64 @@
 
     bless $self, $class;
+    $self->process();
     return $self;
 }

trunk/ippToPsps/perl/ippToPsps/InitBatch.pm

@@ -38 +38 @@
 
     bless $self, $class;
+    $self->process();
     return $self;
 }