X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fnetsapiens.pm;fp=FS%2FFS%2Fpart_export%2Fnetsapiens.pm;h=aa89d47a2a6416bdcd54ea0ea9ef522e5bdd826b;hb=adaccb1ca8e3954a7899ef36bb23c05893ebbc81;hp=b30951dae6ac1cda248d217bb57c1797141c16c9;hpb=16be5a799284b89137ec1802129de29f2b262c46;p=freeside.git diff --git a/FS/FS/part_export/netsapiens.pm b/FS/FS/part_export/netsapiens.pm index b30951dae..aa89d47a2 100644 --- a/FS/FS/part_export/netsapiens.pm +++ b/FS/FS/part_export/netsapiens.pm @@ -83,16 +83,16 @@ sub rebless { shift; } sub check_options { - my ($self, $options) = @_; + my ($self, $options) = @_; - my $rex = qr/$RE{URI}{HTTP}{-scheme => qr|https?|}/; # match any "http:" or "https:" URL + my $rex = qr/$RE{URI}{HTTP}{-scheme => qr|https?|}/; # match any "http:" or "https:" URL - for my $key (qw/url device_url/) { - if ($$options{$key} && ($$options{$key} !~ $rex)) { - return "Invalid (URL): " . $$options{$key}; - } - } - return ''; + for my $key (qw/url device_url/) { + if ($$options{$key} && ($$options{$key} !~ $rex)) { + return "Invalid (URL): " . $$options{$key}; + } + } + return ''; }