perl 3.0 patch #12 patch #9, continued

See patch #9.

1 files changed, 8 insertions, 3 deletions

diff --git a/eg/rename b/eg/rename
index 1708d35def..1bb19d7230 100644
--- a/eg/rename
+++ b/eg/rename
@@ -1,9 +1,14 @@
 #!/usr/bin/perl
 
 ($op = shift) || die "Usage: rename perlexpr [filenames]\n";
-if ($#ARGV < 0) {
-    @ARGV = <stdin>;
-    chop(@ARGV);
+if (!@ARGV) {
+    if (-t) {
+	@ARGV = <*>;
+    }
+    else {
+	@ARGV = <STDIN>;
+	chop(@ARGV);
+    }
 }
 for (@ARGV) {
     $was = $_;