blob: 600a64ec2fc9eaa9801d459161d1d60ae7624ae4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--- mrtg-ping-probe.orig 2003-09-14 03:20:24.000000000 +0900
+++ mrtg-ping-probe 2009-03-10 08:01:20.000000000 +0900
@@ -1,4 +1,4 @@
-#!/bin/perl
+#!%%PERL%%
##################################################################
# @(#) $Id: mrtg-ping-probe,v 2.5 2003/09/13 18:04:29 pwo Exp $
# @(#) mrtg-ping-probe release $Name: Release_2_2_0 $
@@ -284,7 +284,7 @@
# try to find packet loss
# ToDo: only if requested?)
- if ($ping_output =~ m@(\d+)% (?:packet )?loss(?:$|,)@m) {
+ if ($ping_output =~ m@(\d+(?:\.\d+)?)% (?:packet )?loss(?:$|,)@m) {
# Unix
$pt{loss} = $1;
}
|
