Merge pull request #351 from mknos/pr-stdin

pr: support stdin

bin/pr

@@ -154,18 +154,26 @@ my $pageno=$startpageno;
 foreach(1..$columns) {
 	push(@COLINFO, &create_col);
 }
-foreach(@ARGV) {
-	if (-d $_) {
-		warn "$Program: '$_' is a directory\n";
-		exit EX_FAILURE;
-	}
-	my $fh= FileHandle->new("$_", "r");
-	if (! $fh) {
-		next if ($quietskip);
-		warn "$Program: Can't open '$_': $!\n";
-		exit EX_FAILURE;
+if (scalar(@ARGV) == 0) {
+	@ARGV = ('-');
+}
+foreach my $file (@ARGV) {
+	my $fh;
+	if ($file eq '-') {
+		$fh = *STDIN;
+	} else {
+		if (-d $file) {
+			warn "$Program: '$file' is a directory\n";
+			exit EX_FAILURE;
+		}
+		$fh = FileHandle->new($file, 'r');
+		if (! $fh) {
+			next if ($quietskip);
+			warn "$Program: Can't open '$file': $!\n";
+			exit EX_FAILURE;
+		}
 	}
-	push(@FINFO, {  name  => $_,
+	push(@FINFO, {  name  => $file,
 			handle=> $fh,
 			lineno=> 0,
 			});