check if STDIN on Windows is a TTY

mojolicious · May 28, 2017 · 1648ac9 · 1648ac9
1 parent 6623399
commit 1648ac9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/Mojolicious/Command/get.pm b/lib/Mojolicious/Command/get.pm
@@ -15,15 +15,15 @@ has usage => sub { shift->extract_usage };
 sub run {
   my ($self, @args) = @_;
 
-  # Content from STDIN
+  # Data from STDIN
   vec(my $r, fileno(STDIN), 1) = 1;
-  my $body = -p STDIN && select($r, undef, undef, 0) ? join '', <STDIN> : undef;
+  my $in = !-t STDIN && select($r, undef, undef, 0) ? join '', <STDIN> : undef;
 
   my $ua = Mojo::UserAgent->new(ioloop => Mojo::IOLoop->singleton);
   my %form;
   getopt \@args,
     'C|charset=s' => \my $charset,
-    'c|content=s' => \$body,
+    'c|content=s' => \$in,
     'f|form=s'    => sub { _form(\%form) if $_[1] =~ /^(.+)=(\@?)(.+)$/ },
     'H|header=s'  => \my @headers,
     'i|inactivity-timeout=i' => sub { $ua->inactivity_timeout($_[1]) },
@@ -68,7 +68,7 @@ sub run {
   # Switch to verbose for HEAD requests
   $verbose = 1 if $method eq 'HEAD';
   STDOUT->autoflush(1);
-  my @content = %form ? (form => \%form) : defined $body ? ($body) : ();
+  my @content = %form ? (form => \%form) : defined $in ? ($in) : ();
   my $tx = $ua->start($ua->build_tx($method, $url, \%headers, @content));
   my $res = $tx->result;