diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
commit | 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b (patch) | |
tree | 19c4444705fd7f7803e0d7b597659c11d7e85b73 /utils/pos | |
parent | 2edd2e4de0f08a0a5f23647ea715f279671a0b89 (diff) |
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
Diffstat (limited to 'utils/pos')
-rwxr-xr-x | utils/pos/directnet.pl | 17 |
1 files changed, 7 insertions, 10 deletions
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; |