Change uptime to use backticks instead of piped open

2 files changed, 6 insertions, 10 deletions

diff --git a/Changes b/Changes
index 301a1ef..0df3beb 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,8 @@ Revision history for Perl extension {{$dist->name}}:
   [Enhancements]
   - Support getloadavg for DragonFly BSD.
 
+  - Change uptime to use backticks instead of piped open.
+
   [Bug Fixes]
   - uptime immediately returns undef if path to `uptime` cannot be found.
 
diff --git a/lib/Sys/CpuLoad.pm b/lib/Sys/CpuLoad.pm
index 8135150..6c24a85 100644
--- a/lib/Sys/CpuLoad.pm
+++ b/lib/Sys/CpuLoad.pm
@@ -106,18 +106,12 @@ sub uptime {
     $uptime ||= which("uptime") or
         return undef; ## no critic (ProhibitExplicitReturnUndef)
 
-    my $fh = IO::File->new("${uptime}|");
-    if ( defined $fh ) {
-        my $line = <$fh>;
-        $fh->close();
-        if ( $line =~
-             /(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*$/ )
-        {
-            return ( $1, $2, $3 );
-        }
+    my $line = `$uptime`;
+    if ( $line =~ /(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*$/ )
+    {
+        return ( $1, $2, $3 );
     }
     return undef; ## no critic (ProhibitExplicitReturnUndef)
-
 }
 
 sub BEGIN {