roc-obj-extract: Only push STDIN if there are no arguments

- Otherwise this consumes the caller's stdin by accident.

Patch by:
  - Bolo -- Josef Burger
  - https://github.com/bigtrak

Change-Id: I669376c025c0cde2cfdd59b5a4a14a71c5d8e862


[ROCm/clr commit: a0ecfd13a9]

projects/clr/hipamd/bin/roc-obj-extract

@@ -90,8 +90,12 @@ if (defined $options{o}) {
   }
 }
 
+# Only push STDIN if there are no arguments -- otherwise this
+# consumes the caller's stdin by accident.
 # push STDIN to ARGV array.
-push @ARGV, <STDIN> unless -t STDIN;
+if ($#ARGV < 0) {
+  push @ARGV, <STDIN> unless -t STDIN;
+}
 
 # error check: enough arguments presented.
 if ($#ARGV < 0) {