瀏覽代碼

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");