Changeset 13314


Ignore:
Timestamp:
2006-11-22T10:41:05+13:00 (16 years ago)
Author:
kjdon
Message:

tidy up

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/niupepa/perllib/niupepabuildproc.pm

    r2614 r13314  
    2424###########################################################################
    2525
     26### NOTE if you want to change the collection to use MGPP, then change the
     27### three mgbuildproc bits in here to mgppbuildproc.
     28
    2629package niupepabuildproc;
    2730
     
    3033
    3134BEGIN {
    32     @ISA = ('mgbuildproc');
     35    @niupepabuildproc::ISA = ('mgbuildproc');
    3336}
    3437
    3538
    3639sub new {
    37     my ($class, $collection, $source_dir, $build_dir,
    38     $verbosity, $outhandle) = @_;
    39     my $self = new mgbuildproc ();
    40 
     40    my $class = shift @_;
     41    my $self = new mgbuildproc (@_);
    4142    return bless $self, $class;
    4243}
Note: See TracChangeset for help on using the changeset viewer.