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

plugins/t/check_dns.t: Fix Perl warning

Perl said: "Unrecognized escape \d passed through at ./t/check_dns.t
line 57."
Holger Weiss пре 12 година
родитељ
комит
c5a64eeef8
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      plugins/t/check_dns.t

+ 1 - 1
plugins/t/check_dns.t

@@ -54,7 +54,7 @@ cmp_ok( $res->return_code, '==', 2, "Critical threshold passed");
 
 $res = NPTest->testCmd("./check_dns -H $hostname_valid -t 5 -w 0 -c 5");
 cmp_ok( $res->return_code, '==', 1, "Warning threshold passed");
-like( $res->output, "/\|time=[\d\.]+s;0.0*;5\.0*;0\.0*/", "Output performance data OK" );
+like( $res->output, '/\|time=[\d\.]+s;0.0*;5\.0*;0\.0*/', "Output performance data OK" );
 
 $res = NPTest->testCmd("./check_dns -H $hostname_invalid -t 1");
 cmp_ok( $res->return_code, '==', 2, "Invalid $hostname_invalid");