X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=make%2Funit-cc.pl;h=f4fa5a650a6fddfc513fe8348d6c679062d5da45;hb=c05f81cac83e80c7727594e3929e0709eccca689;hp=d577022dad8c2f3be57b9087b7e23f9c1195f575;hpb=aa692dc1039b63deef7886e914ec499abe7facaf;p=user%2Fhenk%2Fcode%2Finspircd.git diff --git a/make/unit-cc.pl b/make/unit-cc.pl index d577022da..f4fa5a650 100755 --- a/make/unit-cc.pl +++ b/make/unit-cc.pl @@ -1,11 +1,10 @@ #!/usr/bin/env perl - # # InspIRCd -- Internet Relay Chat Daemon # # Copyright (C) 2019 iwalkalone # Copyright (C) 2014 Attila Molnar -# Copyright (C) 2013, 2015-2016, 2018 Sadie Powell +# Copyright (C) 2013, 2015-2016, 2018, 2021 Sadie Powell # Copyright (C) 2012 Robby # Copyright (C) 2009-2010 Daniel De Graaf # @@ -23,16 +22,15 @@ # -BEGIN { - push @INC, $ENV{SOURCEPATH}; - require 5.10.0; -} - +use v5.10.0; use strict; use warnings FATAL => qw(all); +use File::Basename qw(dirname); use File::Spec::Functions qw(abs2rel); +use FindBin qw($RealDir); +use lib dirname $RealDir; use make::console; use make::directive; @@ -59,9 +57,9 @@ exit 1; sub message($$$) { my ($type, $file, $command) = @_; if ($ENV{INSPIRCD_VERBOSE}) { - print "$command\n"; + say $command; } else { - print_format "\t<|GREEN $type:|>\t\t$file\n"; + say console_format "\t<|GREEN $type:|>\t\t$file"; } }