izackp/mosh
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mosh.pl: use single quotes where appropriate

Browse Source
This commit is contained in:
John Hood
2015-07-26 23:50:00 -04:00
parent 389fc23205
commit 9dbf3b366d
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scripts/mosh.pl
+3 -4
View File
@@ -200,7 +200,6 @@ if ( ! defined $fake_proxy ) {
push @bind_arguments, ('-i', "$bind_ip"); push @bind_arguments, ('-i', "$bind_ip");
} else { } else {
print STDERR qq{$0: Unknown server binding option: $bind_ip\n}; print STDERR qq{$0: Unknown server binding option: $bind_ip\n};
die $usage; die $usage;
} }
} else { } else {
@@ -251,7 +250,7 @@ if ( ! defined $fake_proxy ) {
# If v4 or v6 was specified, reduce the host list. # If v4 or v6 was specified, reduce the host list.
if ( defined( $af )) { if ( defined( $af )) {
@res = grep {$_->{family} == $af} @res; @res = grep {$_->{family} == $af} @res;
} elsif ( $family ne "all" ) { } elsif ( $family ne 'all' ) {
# If v4/v6/all were not specified, verify that this host only has one address family available. # If v4/v6/all were not specified, verify that this host only has one address family available.
for my $ai ( @res ) { for my $ai ( @res ) {
if ( !defined( $af )) { if ( !defined( $af )) {
@@ -274,8 +273,8 @@ if ( ! defined $fake_proxy ) {
Family => $ai->{family}, Family => $ai->{family},
PeerHost => $addr_string, PeerHost => $addr_string,
PeerPort => $port, PeerPort => $port,
Proto => "tcp" )) { Proto => 'tcp' )) {
print STDERR "MOSH IP ", $sock->peerhost, "\n"; print STDERR 'MOSH IP ', $sock->peerhost, "\n";
last; last;
} else { } else {
$err = $@; $err = $@;