Attachment 853450 Details for Bug 1056277 – patch for Net::DNS::ZoneFile::Fast.pm

patch for Net::DNS::ZoneFile::Fast.pm

Fast.pm.patch (text/plain), 1.34 KB, created by Glen Eustace on 2014-01-21 21:09:36 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Glen Eustace

Created: 2014-01-21 21:09:36 UTC

Size: 1.34 KB

patch

obsolete

>t.pm.orig	2014-01-22 09:57:12.507296550 +1300
>+++ Fast.pm	2014-01-22 09:59:37.584280334 +1300
>@@ -1306,7 +1306,20 @@
> sub parse_nsec3
>   {
>       #got more data
>-      if ( /\G\s*((\w+\s+)*)\)\s*$/) {
>+      if ( /\G\s*([A-Z0-9]{32})\s*(\))?/gc) {
>+         my $nxthash = $1;
>+	 my $binhash = MIME::Base32::decode(uc($nxthash));
>+         $nsec3->{ 'hnxtname' } = $nxthash;
>+         $nsec3->{ 'hnxtnamebin' } = $binhash;
>+         $nsec3->{ 'hashlength' } = length( $binhash );
>+         if ( $2 eq ')' ) {			# Was RR terminated ?
>+	    push @zone, $nsec3; 
>+	    # we're done
>+	    $parse = \&parse_line;
>+            $nsec3 = undef;
>+         }
>+      } elsif ( /\G\s+$/gc ) {			# Empty line
>+      } elsif ( /\G\s*((\w+\s+)*)\)\s*$/) {
>          my $typelist = $1;
> 	 $typelist = join(" ",sort split(/\s+/,$typelist));
>          $nsec3->{ 'typelist' } = $typelist;
>@@ -1316,13 +1329,6 @@
> 	 # we're done
> 	 $parse = \&parse_line;
>          $nsec3 = undef;
>-      } elsif ( /\G\s*([A-Z0-9]{32})\s*$/gc) {
>-         my $nxthash = $1;
>-	 my $binhash = MIME::Base32::decode(uc($nxthash));
>-         $nsec3->{ 'hnxtname' } = $nxthash;
>-         $nsec3->{ 'hnxtnamebin' } = $binhash;
>-         $nsec3->{ 'hashlength' } = length( $binhash );
>-      } elsif ( /\G\s+$/gc ) {			# Empty line
>       } else {
>          error( "bad NSEC3 continuation lines ($_)" );
>       } 
>

Actions: View

Attachments on bug 1056277: 853450 | 853981