Blame - ap/lib/libssl/openssl-1.1.1o/util/echo.pl - T106_DC

blob: d90e52129bab8bfa1ddb8527575684fdc9ece504 [file] [log] [blame]

lh	9ed821d	2023-04-07 01:36:19 -0700	[diff] [blame]	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;