Changeset 13314 for trunk/niupepa

Timestamp:

2006-11-22T10:41:05+13:00 (17 years ago)

Author:

kjdon

Message:

tidy up

File:

• trunk/niupepa/perllib/niupepabuildproc.pm (modified) (2 diffs)

trunk/niupepa/perllib/niupepabuildproc.pm

@@ -24 +24 @@
 ###########################################################################
 
+### NOTE if you want to change the collection to use MGPP, then change the 
+### three mgbuildproc bits in here to mgppbuildproc.
+
 package niupepabuildproc;
 
@@ -30 +33 @@
 
 BEGIN {
-    @ISA = ('mgbuildproc');
+    @niupepabuildproc::ISA = ('mgbuildproc');
 }
 
 
 sub new {
-    my ($class, $collection, $source_dir, $build_dir,
-    $verbosity, $outhandle) = @_;
-    my $self = new mgbuildproc ();
-
+    my $class = shift @_;
+    my $self = new mgbuildproc (@_);
     return bless $self, $class;
 }