From dd80027b51b3ee71027a2612595aee38e38c0d6e Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Sun, 19 Oct 2014 11:54:16 +0200
Subject: Fix perlcritic issues for all scripts starting with m to r

---
 scripts/nact.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts/nact.pl')

diff --git a/scripts/nact.pl b/scripts/nact.pl
index e4468fe..f814fb3 100644
--- a/scripts/nact.pl
+++ b/scripts/nact.pl
@@ -109,7 +109,7 @@ sub getBytesLinux() {
 	my @list;
 	my $ignore = 2;
 	
-	open(FID, "/proc/net/dev");
+	open(FID, "<", "/proc/net/dev");
 
 	while (<FID>) {
 		if ($ignore > 0) {
@@ -130,7 +130,7 @@ sub getBytesLinux() {
 sub getBytesOBSD() {
 	my @list;
 	
-	open(FID, "/usr/bin/netstat -nib|");
+	open(FID, "-|", "/usr/bin/netstat -nib");
 
 	while (<FID>) {
 		my $line = $_;
@@ -146,7 +146,7 @@ sub getBytesFBSD() {
   my @list;
   my $olddev="";
 
-  open(FID, "/usr/bin/netstat -nib|");
+  open(FID, "-|", "/usr/bin/netstat -nib");
   while (<FID>) {
     my $line = $_;
     @list = split(" ", $line);
-- 
cgit v1.2.3