[Rt-commit] r4418 - in rt/branches/3.7-EXPERIMENTAL: .
ruz at bestpractical.com
ruz at bestpractical.com
Fri Jan 20 07:28:14 EST 2006
Author: ruz
Date: Fri Jan 20 07:28:09 2006
New Revision: 4418
Modified:
rt/branches/3.7-EXPERIMENTAL/ (props changed)
rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm
Log:
r1633 at cubic-pc: cubic | 2006-01-20 05:59:49 +0300
* correct is_ext check
Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm (original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm Fri Jan 20 07:28:09 2006
@@ -97,7 +97,7 @@
for all settings; it bases some values on settings from the site
configuration file.
-B<Note> that core config file skips options if site config
+B<Note> that core config file don't change options if site config
has set them so to add value to some option instead of
overriding you have to copy original value from core config file.
@@ -107,7 +107,6 @@
{
my $self = shift;
my %args = (File => '', @_);
- my $config = $args{'File'};
$args{'File'} =~ s/(?<!Site)(?=Config\.pm$)/Site/;
$self->_LoadConfig( %args );
$args{'File'} =~ s/Site(?=Config\.pm$)//;
@@ -120,23 +119,23 @@
my $self = shift;
my %args = (File => '', @_);
- my ($is_site,$is_ext) = (0, 1);
- $is_ext = 0 if $args{'File'} =~ /^RT_(?:Site)?Config$/;
- $is_site = 1 if $args{'File'} =~ /SiteConfig/;
+ my $is_ext = $args{'File'} !~ /^RT_(?:Site)?Config/? 1: 0;
+ my $is_site = $args{'File'} =~ /SiteConfig/? 1: 0;
eval {
package RT;
local *Set = sub(\[$@%]@) {
my ($opt_ref, @args) = @_;
my ($pack, $file, $line) = caller;
- return $self->SetFromConfig( Option => $opt_ref,
- Value => [@args],
- Package => $pack,
- File => $file,
- Line => $line,
- SiteConfig => $is_site,
- Extension => $is_ext,
- );
+ return $self->SetFromConfig(
+ Option => $opt_ref,
+ Value => [@args],
+ Package => $pack,
+ File => $file,
+ Line => $line,
+ SiteConfig => $is_site,
+ Extension => $is_ext,
+ );
};
local @INC = ($LocalEtcPath, $EtcPath);
require $args{'File'};
More information about the Rt-commit
mailing list