Skip to content

Commit b94387e

Browse files
committed
print some info about commandline options and verbosity
1 parent 03ce4b1 commit b94387e

File tree

1 file changed

+10
-2
lines changed

1 file changed

+10
-2
lines changed

Makefile.PL

+10-2
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,14 @@ sub Usage
5252
print "\n";
5353
exit(0);
5454
}
55-
Usage() if (@ARGV and $ARGV[0] =~ m|^([-/]*)?h(elp)?|i);
55+
if (@ARGV and $ARGV[0] =~ m|^([-/]*)?h(elp)?|i)
56+
{
57+
Usage();
58+
}
59+
else
60+
{
61+
print "\nrun as `perl Makefile.PL help` to show user options\n";
62+
}
5663

5764

5865
# Get debugging flags
@@ -62,7 +69,8 @@ if ( grep { if (m/^verbose/i) { $verbose++; 1; } else { 0; } } @ARGV )
6269
# Strip out interface args
6370
@ARGV = grep { !m/^verbose=/i } @ARGV;
6471
}
65-
print "\$verbose set to $verbose\n" if $verbose;
72+
print "\$verbose set to $verbose" . ($verbose ? "" : " - enable by running as `perl Makefile.PL verbose`");
73+
print "\n\n";
6674

6775

6876
# Get distribution build flags

0 commit comments

Comments
 (0)