Bug 1034678: Use of uninitialized value $_[0] in pattern match (m//) at Bugzilla/Util.pm line 74. The new value for request reminding interval is invalid: must be numeric.

1 files changed, 10 insertions, 4 deletions

diff --git a/extensions/RequestNagger/Extension.pm b/extensions/RequestNagger/Extension.pm
index af9eb1783..2be828fd1 100644
--- a/extensions/RequestNagger/Extension.pm
+++ b/extensions/RequestNagger/Extension.pm
@@ -69,16 +69,22 @@ sub object_before_create {
     my ($self, $args) = @_;
     my ($class, $params) = @$args{qw(class params)};
     return unless $class->isa('Bugzilla::Product');
-    my $interval = _check_nag_interval(Bugzilla->cgi->param('nag_interval'));
-    $params->{nag_interval} = $interval;
+    my $input = Bugzilla->input_params;
+    if (exists $input->{nag_interval}) {
+        my $interval = _check_nag_interval($input->{nag_interval});
+        $params->{nag_interval} = $interval;
+    }
 }
 
 sub object_end_of_set_all {
     my ($self, $args) = @_;
     my ($object, $params) = @$args{qw(object params)};
     return unless $object->isa('Bugzilla::Product');
-    my $interval = _check_nag_interval(Bugzilla->cgi->param('nag_interval'));
-    $object->set('nag_interval', $interval);
+    my $input = Bugzilla->input_params;
+    if (exists $input->{nag_interval}) {
+        my $interval = _check_nag_interval($input->{nag_interval});
+        $object->set('nag_interval', $interval);
+    }
 }
 
 sub _check_nag_interval {