Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37763684
en ru br
ALT Linux repos
S:0.96-alt3
5.0: 0.91-alt1

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


--- 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.
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin