Changeset 1007 for trunk/DNSDB.pm

Timestamp:

01/29/26 10:36:13 (3 days ago)

Author:

Kris Deugau

Message:

/trunk

Fix the fix in r1002; forgot $host is a reference at that point, and gave
split the right separator syntax. Picky picky.

File:

• trunk/DNSDB.pm (modified) (2 diffs)

trunk/DNSDB.pm

@@ -4820 +4820 @@
 # a s/// inside the block map only returns the match/replace count instead of whatever
 # the changed $_ is for some reason
-  my @hbits = split '.', $host;
+  my @hbits = split /\./, $$host;
   foreach (@hbits) {
     s/^-+//;
     s/-+$//;
   }
-  $host = join '.', @hbits;
+  $$host = join '.', @hbits;
 
   # Set up database fields and bind parameters
@@ -4998 +4998 @@
 # a s/// inside the block map only returns the match/replace count instead of whatever
 # the changed $_ is for some reason
-  my @hbits = split '.', $host;
+  my @hbits = split /\./, $$host;
   foreach (@hbits) {
     s/^-+//;
     s/-+$//;
   }
-  $host = join '.', @hbits;
+  $$host = join '.', @hbits;
 
   # Set up database fields and bind parameters.  Note only the optional fields