From 859a79923a1e9df7195e1320d66b61ee162f52cc Mon Sep 17 00:00:00 2001 From: Sadie Powell Date: Wed, 27 Jan 2021 16:47:08 +0000 Subject: Migrate some stuff away from print_format. --- tools/directive | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tools/directive') diff --git a/tools/directive b/tools/directive index 07d4b09e2..c743ed3e6 100755 --- a/tools/directive +++ b/tools/directive @@ -30,7 +30,7 @@ use make::console; use make::directive; if (scalar @ARGV < 2) { - print_format "<|GREEN Usage:|> $0 <<|UNDERLINE FILE|>> [<|UNDERLINE DIRECTIVES...|>]\n", *STDERR; + say STDERR console_format "<|GREEN Usage:|> $0 <<|UNDERLINE FILE|>> [<|UNDERLINE DIRECTIVES...|>]"; exit 1 } @@ -40,7 +40,7 @@ print_error "<|GREEN $file|> does not exist and/or is not a file!" unless -f $fi for my $directive (@ARGV) { my $value = get_directive $file, $directive, ''; if (-t STDOUT) { - print_format "<|GREEN $directive|>: $value\n"; + say console_format "<|GREEN $directive|>: $value"; } else { say $value; } -- cgit v1.2.3