Changeset 13314
- Timestamp:
- 2006-11-22T10:41:05+13:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/niupepa/perllib/niupepabuildproc.pm
r2614 r13314 24 24 ########################################################################### 25 25 26 ### NOTE if you want to change the collection to use MGPP, then change the 27 ### three mgbuildproc bits in here to mgppbuildproc. 28 26 29 package niupepabuildproc; 27 30 … … 30 33 31 34 BEGIN { 32 @ ISA = ('mgbuildproc');35 @niupepabuildproc::ISA = ('mgbuildproc'); 33 36 } 34 37 35 38 36 39 sub 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 (@_); 41 42 return bless $self, $class; 42 43 }
Note:
See TracChangeset
for help on using the changeset viewer.