Return-Path: <modperl-cvs-owner-modperl-cvs-archive=hyperreal.org@apache.org>
Delivered-To: modperl-cvs-archive@hyperreal.org
Received: (qmail 4799 invoked by uid 6000); 21 Jan 1999 06:29:12 -0000
Received: (qmail 4792 invoked by uid 169); 21 Jan 1999 06:29:11 -0000
Date: 21 Jan 1999 06:29:11 -0000
Message-ID: <19990121062911.4791.qmail@hyperreal.org>
From: dougm@hyperreal.org
To: modperl-cvs@hyperreal.org
Subject: cvs commit: modperl/t report.PL
Sender: modperl-cvs-owner@apache.org
Precedence: bulk
Reply-To: modperl-cvs@apache.org

dougm       99/01/20 22:29:10

  Modified:    t        report.PL
  Log:
  get $VERSION from the right place
  
  Revision  Changes    Path
  1.3       +2 -2      modperl/t/report.PL
  
  Index: report.PL
  ===================================================================
  RCS file: /home/cvs/modperl/t/report.PL,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- report.PL	1998/03/22 04:41:15	1.2
  +++ report.PL	1999/01/21 06:29:10	1.3
  @@ -11,8 +11,8 @@
   my $ap_v = $src->httpd_version;
   my $ap_mmn = $src->module_magic_number;
   
  -my $mp_version = MM->parse_version(-e "Makefile.PL" ? 
  -	"Makefile.PL" : "../Makefile.PL");
  +my $mp_version = MM->parse_version(-e "lib/mod_perl.pm" ? 
  +	"lib/mod_perl.pm" : "../lib/mod_perl.pm");
   
   my $msg = Mail::Send->new(
   	To => 'modperl-cvs@apache.org',