[thirdparty/openssl.git] / util / echo.pl

#! /usr/bin/perl

use strict;
use warnings;
use Getopt::Std;

our $opt_n = 0;

getopts('n') or die "Invalid option: $!\n";

print join(' ', @ARGV);
print "\n" unless $opt_n;
Commit	Line	Data
9abce88b RL	1	#! /usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use Getopt::Std;
	6
	7	our $opt_n = 0;
	8
	9	getopts('n') or die "Invalid option: $!\n";
	10
	11	print join(' ', @ARGV);
	12	print "\n" unless $opt_n;