Improve error checking for uptime

2 files changed, 3 insertions, 0 deletions

diff --git a/README.md b/README.md
index a940d59..cb8a9ef 100644
--- a/README.md
+++ b/README.md
@@ -71,6 +71,8 @@ As of v0.24, you can override the executable path by setting
 ```perl
 use Sys::CpuLoad 'uptime';
 
+no warnings 'once';
+
 $Sys::CpuLoad::UPTIME = '/usr/bin/w';
 
 @load = uptime();
diff --git a/lib/Sys/CpuLoad.pm b/lib/Sys/CpuLoad.pm
index c964b67..2953d8d 100644
--- a/lib/Sys/CpuLoad.pm
+++ b/lib/Sys/CpuLoad.pm
@@ -120,6 +120,7 @@ sub uptime {
         return undef; ## no critic (ProhibitExplicitReturnUndef)
 
     run3($UPTIME, \undef, \my $line);
+    return undef if $? || !defined($line); ## no critic (ProhibitExplicitReturnUndef)
     if ( $line =~ /(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*$/m )
     {
         return ( $1, $2, $3 );