Changeset 205

Timestamp:

Jan 29, 2017, 6:18:12 PM (8 years ago)

Author:

g7moreau

Message:

• A stupid bug in split !

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -1444 +1444 @@
          my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
 
-         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \.\* /xms, $ipv4_address; # \* for fake-ip
+         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ [\.\*] /xms, $ipv4_address; # \* for fake-ip
 
          my $mac_sort = sprintf '%04i-%s', 9999, $mac_address;
@@ -1494 +1494 @@
          my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year,$mon,$mday,$hour,$min;
 
-         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \.\* /xms, $ipv4_address; # \* for fake-ip
+         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ [\.\*] /xms, $ipv4_address; # \* for fake-ip
 
          my $mac_sort = sprintf '%04i-%s', 9999, $mac_address;