diff options
| -rw-r--r-- | FS/FS/part_export/http_status.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/part_export/http_status.pm b/FS/FS/part_export/http_status.pm index 679e2f1bf..a67684092 100644 --- a/FS/FS/part_export/http_status.pm +++ b/FS/FS/part_export/http_status.pm @@ -27,12 +27,14 @@ sub rebless { shift; } sub export_getstatus { my( $self, $svc_x, $htmlref, $hashref ) = @_; - my $url = $self->option('url'); + my $url; + my $urlopt = $self->option('url'); + no strict 'vars'; { no strict 'refs'; ${$_} = $svc_x->getfield($_) foreach $svc_x->fields; - $url = eval(qq("$url")); + $url = eval(qq("$urlopt")); } my $req = HTTP::Request::Common::GET( $url ); |