Return-Path: Delivered-To: apmail-httpd-test-dev-archive@httpd.apache.org Received: (qmail 22997 invoked by uid 500); 9 Sep 2001 17:34:56 -0000 Mailing-List: contact test-dev-help@httpd.apache.org; run by ezmlm Precedence: bulk Reply-To: test-dev@httpd.apache.org list-help: list-unsubscribe: list-post: Delivered-To: mailing list test-dev@httpd.apache.org Received: (qmail 22985 invoked from network); 9 Sep 2001 17:34:55 -0000 X-Authentication-Warning: mako.covalent.net: dougm owned process doing -bs Date: Sun, 9 Sep 2001 10:36:46 -0700 (PDT) From: Doug MacEachern To: test-dev@httpd.apache.org Subject: Re: [patch] a cleaner make clean In-Reply-To: Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N On Sun, 9 Sep 2001, Stas Bekman wrote: > I don't think this will work via import() trick since you still want to > reach the thing in: $self->MM::clean(@_); and you cannot before you call > WriteMakefile. it does work. look at Apache::TestMM::import, it sets up aliases in the %MY:: namespace. > > similar to how you can already to for 'test'. > > Here is how I've approached it (stolen from mod_perl's Makefile.PL): > +sub MY::clean { > + my $self = shift; > + my $string = $self->MM::clean(@_); > + Apache::TestMM::add_dep(\$string, clean => 'test_clean'); > + $string; > +} just move that to Apache::TestMM (without the MY::), then: use Apache::TestMM qw(test clean); should work.