Group :: Development/Perl
RPM: perl-Net-DRI
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: Net-DRI-0.96-bugfix.patch
Download
Download
--- Net-DRI-0.96/lib/Net/DRI/Data/Contact/OpenSRS.pm 2010-03-25 01:14:39.000000000 +0000
+++ Net-DRI-0.96/lib/Net/DRI/Data/Contact/OpenSRS.pm 2017-12-19 21:45:39.239780871 +0000
@@ -94,7 +94,7 @@
push @errs,'firstname' if ($self->firstname() && grep { !Net::DRI::Util::xml_is_normalizedstring($_,1,255) } ($self->firstname()));
push @errs,'voice' if ($self->voice() && !Net::DRI::Util::xml_is_token($self->voice(),undef,17) && $self->voice()!~m/^\+[0-9]{1,3}\.[0-9]{1,12}(?:x\d{1,4})?$/);
- push @errs,'fax' if ($self->fax() && !Net::DRI::Util::xml_is_token($self->fax(),undef,17) && $self->fax()!~m/^\+[0-9]{1,3}\.[0-9]{1,12}(?:x\d{1.4})?$/);
+ push @errs,'fax' if ($self->fax() && !Net::DRI::Util::xml_is_token($self->fax(),undef,17) && $self->fax()!~m/^\+[0-9]{1,3}\.[0-9]{1,12}(?:x\d{1,4})?$/);
Net::DRI::Exception::usererr_invalid_parameters('Invalid contact information: '.join('/',@errs)) if @errs;
return 1; ## everything ok.