diff options
Diffstat (limited to 'Bugzilla.pm')
-rw-r--r-- | Bugzilla.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Bugzilla.pm b/Bugzilla.pm index 3e969a99d..1ab72431a 100644 --- a/Bugzilla.pm +++ b/Bugzilla.pm @@ -59,6 +59,7 @@ use Safe; use Sys::Syslog qw(:DEFAULT); use List::Util qw(any); use JSON::XS qw(decode_json); +use URI; use parent qw(Bugzilla::CPAN); @@ -272,6 +273,13 @@ sub localconfig { return $_[0]->process_cache->{localconfig} ||= read_localconfig(); } +sub urlbase { + my ($class) = @_; + + # Since this could be modified, we have to return a new one every time. + return URI->new($class->localconfig->{urlbase}); +} + sub params { return $_[0]->request_cache->{params} ||= Bugzilla::Config::read_param_file(); } |