projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rt 4.0.20 (RT#13852)
[freeside.git]
/
rt
/
sbin
/
rt-test-dependencies.in
diff --git
a/rt/sbin/rt-test-dependencies.in
b/rt/sbin/rt-test-dependencies.in
index
5ce918b
..
66215ad
100644
(file)
--- a/
rt/sbin/rt-test-dependencies.in
+++ b/
rt/sbin/rt-test-dependencies.in
@@
-3,7
+3,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
2
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
4
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-52,11
+52,16
@@
#
use strict;
#
use strict;
+use warnings;
no warnings qw(numeric redefine);
use Getopt::Long;
no warnings qw(numeric redefine);
use Getopt::Long;
+use Cwd qw(abs_path);
my %args;
my %deps;
my @orig_argv = @ARGV;
my %args;
my %deps;
my @orig_argv = @ARGV;
+# Save our path because installers or tests can change cwd
+my $script_path = abs_path($0);
+
GetOptions(
\%args, 'v|verbose',
'install!', 'with-MYSQL',
GetOptions(
\%args, 'v|verbose',
'install!', 'with-MYSQL',
@@
-293,6
+298,8
@@
Log::Dispatch::Perl
Test::WWW::Mechanize::PSGI
Plack::Middleware::Test::StashWarnings 0.06
Test::LongString
Test::WWW::Mechanize::PSGI
Plack::Middleware::Test::StashWarnings 0.06
Test::LongString
+Test::NoWarnings
+Locale::PO
.
$deps{'FASTCGI'} = [ text_to_hash( << '.') ];
.
$deps{'FASTCGI'} = [ text_to_hash( << '.') ];
@@
-340,7
+347,7
@@
Net::SMTP
.
$deps{'DASHBOARDS'} = [ text_to_hash( << '.') ];
.
$deps{'DASHBOARDS'} = [ text_to_hash( << '.') ];
-HTML::RewriteAttributes 0.0
4
+HTML::RewriteAttributes 0.0
5
MIME::Types
URI 1.59
.
MIME::Types
URI 1.59
.
@@
-361,13
+368,14
@@
Convert::Color
.
$deps{'HTML-DOC'} = [ text_to_hash( <<'.') ];
.
$deps{'HTML-DOC'} = [ text_to_hash( <<'.') ];
-Pod::Simple 3.
17
+Pod::Simple 3.
24
HTML::Entities
.
my %AVOID = (
'DBD::Oracle' => [qw(1.23)],
'Email::Address' => [qw(1.893 1.894)],
HTML::Entities
.
my %AVOID = (
'DBD::Oracle' => [qw(1.23)],
'Email::Address' => [qw(1.893 1.894)],
+ 'Devel::StackTrace' => [qw(1.28 1.29)],
);
if ($args{'download'}) {
);
if ($args{'download'}) {
@@
-413,7
+421,7
@@
foreach my $type (sort grep $args{$_}, keys %args) {
}
if ( $args{'install'} && keys %Missing_By_Type ) {
}
if ( $args{'install'} && keys %Missing_By_Type ) {
- exec($
0
, @orig_argv, '--no-install');
+ exec($
script_path
, @orig_argv, '--no-install');
}
else {
conclude(%Missing_By_Type);
}
else {
conclude(%Missing_By_Type);