Fix perlcritic issues for all scripts starting with m to r

1 files changed, 3 insertions, 3 deletions

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