From 35429919e6438ee05a5bc9413952cc30fed9e6b6 Mon Sep 17 00:00:00 2001 From: David Lawrence Date: Thu, 14 Jan 2016 21:20:18 +0000 Subject: Bug 1239582 - The new REST API fails to work properly under mod_perl due to improper file path passed to bsd_glob() r=dylan --- Bugzilla/API/1_0/Server.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Bugzilla/API') diff --git a/Bugzilla/API/1_0/Server.pm b/Bugzilla/API/1_0/Server.pm index d9780bd63..743af59a1 100644 --- a/Bugzilla/API/1_0/Server.pm +++ b/Bugzilla/API/1_0/Server.pm @@ -20,7 +20,7 @@ use Bugzilla::Hook; use Bugzilla::Util qw(datetime_from trick_taint); use File::Basename qw(basename); -use File::Glob qw(bsd_glob); +use File::Glob qw(:bsd_glob); use List::MoreUtils qw(none uniq); use MIME::Base64 qw(decode_base64 encode_base64); use Moo; @@ -359,8 +359,8 @@ sub _find_resource { $api_namespace, 'API', $api_ext_version, 'Resource', '*.pm'); } else { - $resource_modules = File::Spec->catdir('Bugzilla','API', $api_version, - 'Resource', '*.pm'); + $resource_modules = File::Spec->catdir(bz_locations()->{cgi_path}, + 'Bugzilla','API', $api_version, 'Resource', '*.pm'); } # Load in the WebService modules from the appropriate version directory -- cgit v1.2.3-24-g4f1b