From 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 26 Apr 2007 18:00:56 +0000
Subject: Doing a simple Perltidy commit so that I can evaluate differences
 between the branches and make sure patches are up to date

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1103 4979c152-3d1c-0410-bac9-87ea11338e46
---
 utils/pos/directnet.pl | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

(limited to 'utils/pos')

diff --git a/utils/pos/directnet.pl b/utils/pos/directnet.pl
index 3bdd2e51..efe4de0a 100755
--- a/utils/pos/directnet.pl
+++ b/utils/pos/directnet.pl
@@ -1,19 +1,16 @@
 #!/usr/bin/perl
 
-($host, $proto, $port) = @ARGV;
+( $host, $proto, $port ) = @ARGV;
 
-socket(SOCK, 2, 1, getprotobynumber($proto));
+socket( SOCK, 2, 1, getprotobynumber($proto) );
 
-$dest=pack(
-        's n a4 x8', 2, $port,
-        pack('CCCC', split(/\./, $host))
-);
+$dest = pack( 's n a4 x8', 2, $port, pack( 'CCCC', split( /\./, $host ) ) );
 
-connect (SOCK, $dest);
+connect( SOCK, $dest );
 
-open ('STD', '-');
-while ($line = <STD>){
-  print SOCK $line;
+open( 'STD', '-' );
+while ( $line = <STD> ) {
+    print SOCK $line;
 }
 close STD;
 close SOCK;
-- 
cgit v1.2.3