[Bps-public-commit] r20227 - RT-Extension-rt_cpan_org/inc/Module/Install

ruz at bestpractical.com ruz at bestpractical.com
Wed Dec 23 22:23:56 EST 2009


Author: ruz
Date: Wed Dec 23 22:23:55 2009
New Revision: 20227

Modified:
   RT-Extension-rt_cpan_org/inc/Module/Install/RTx.pm

Log:
* update M::I::RTx

Modified: RT-Extension-rt_cpan_org/inc/Module/Install/RTx.pm
==============================================================================
--- RT-Extension-rt_cpan_org/inc/Module/Install/RTx.pm	(original)
+++ RT-Extension-rt_cpan_org/inc/Module/Install/RTx.pm	Wed Dec 23 22:23:55 2009
@@ -8,7 +8,7 @@
 
 use Module::Install::Base;
 use base 'Module::Install::Base';
-our $VERSION = '0.24';
+our $VERSION = '0.25';
 
 use FindBin;
 use File::Glob     ();
@@ -50,7 +50,8 @@
         until ( eval { require RT; $RT::LocalPath } ) {
             warn
                 "Cannot find the location of RT.pm that defines \$RT::LocalPath in: @INC\n";
-            $_ = $self->prompt("Path to your RT.pm:") or exit;
+            $_ = $self->prompt("Path to directory containing your RT.pm:") or exit;
+            $_ =~ s/\/RT\.pm$//;
             push @INC, $_, "$_/rt3/lib", "$_/lib/rt3", "$_/lib";
         }
     }
@@ -144,7 +145,6 @@
         $has_etc{acl}++;
     }
     if ( -e 'etc/initialdata' ) { $has_etc{initialdata}++; }
-    if ( -e 'etc/upgrade' ) { $has_etc{upgrade}++; }
 
     $self->postamble("$postamble\n");
     unless ( $subdirs{'lib'} ) {
@@ -173,14 +173,6 @@
 .
         $self->postamble("initdb ::\n$initdb\n");
         $self->postamble("initialize-database ::\n$initdb\n");
-
-        if ( $has_etc{upgrade} ) {
-            my $cmds = <<".";
-\t\$(NOECHO) \$(PERL) -Ilib -I"$local_lib_path" -I"$lib_path" -Minc::Module::Install -e"RTxInitDB(qw(upgrade))"
-.
-            $self->postamble("upgrade ::\n$cmds\n");
-        }
-        
     }
 }
 
@@ -197,4 +189,4 @@
 
 __END__
 
-#line 311
+#line 303



More information about the Bps-public-commit mailing list