Преглед изворни кода

Put /o modifier on regex, like with other modules

Morten Brix Pedersen пре 24 година
родитељ
комит
93bac0e0b7
1 измењених фајлова са 3 додато и 3 уклоњено
  1. 3 3
      modules/Pisg/Parser/Format/infobot.pm

+ 3 - 3
modules/Pisg/Parser/Format/infobot.pm

@@ -31,7 +31,7 @@ sub normalline
     my $sec; my $min; my $hour; my $mday; my $mon; my $year;
     my $wday; my $yday; my $isdst;
 
-    if ($line =~ /$self->{normalline}/) {
+    if ($line =~ /$self->{normalline}/o) {
         $self->{debug}->("[$lines] Normal: $1 $2 $3");
 
         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1);
@@ -52,7 +52,7 @@ sub actionline
     my $sec; my $min; my $hour; my $mday; my $mon; my $year; 
     my $wday; my $yday; my $isdst;
 
-    if ($line =~ /$self->{actionline}/) {
+    if ($line =~ /$self->{actionline}/o) {
         $self->{debug}->("[$lines] Action: $1 $2 $3");
 
         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1);
@@ -73,7 +73,7 @@ sub thirdline
     my $sec; my $min; my $hour; my $mday; my $mon; my $year; 
     my $wday; my $yday; my $isdst;
 
-    if ($line =~ /$self->{thirdline}/) {
+    if ($line =~ /$self->{thirdline}/o) {
         $self->{debug}->("[$lines] ***: $1 $2");
 
         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1);