# ---------------------------------------------------
package make::configure;
+
+require 5.8.0;
+
use Exporter 'import';
use POSIX;
use make::utilities;
-@EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies resolve_directory yesno showhelp promptstring_s);
+@EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies nopedantic resolve_directory yesno showhelp promptstring_s);
my $no_svn = 0;
return undef;
}
+sub nopedantic {
+ my ($file) = @_;
+ open(FLAGS, $file);
+ while (<FLAGS>) {
+ if ($_ =~ /^\/\* \$NoPedantic \*\/$/) {
+ close(FLAGS);
+ return 1;
+ }
+ }
+ close(FLAGS);
+ return 0;
+}
sub getmodules
{
--disable-interactive Sets no options intself, but
will disable any interactive prompting.
+ --disable-rpath Disable runtime paths. DO NOT USE UNLESS
+ YOU KNOW WHAT YOU ARE DOING!
--update Update makefiles and dependencies
--modupdate Detect new modules and write makefiles
--svnupdate {--rebuild} Update working copy via subversion