• AUTHOR</pre>

AUTHOR</pre> <p>Ariel Brosh</p> <p> </p> <hr /> <h1><a name=``copyright_and_license''>COPYRIGHT AND LICENS©RIGHT AND LICENS;/a></h1> <p>Copyright 2000, Ariel Brosh.</p> <p>Maintained by Steffen Mueller &lt;<a href=``mailto:smueller@cpan.org''>smueller@cpan.org&gt;.</p> <p>Usage of this module is free, including commercial use, enterprise and legacy use. However, any modifications should be notified to the maintainer.</p> <p> </p> <hr /> <h1><a name=``see_also''>SEE ALSO</a></h1> <p><a href=``../site/lib/Language/Mumps.html''>the Language::Mumps manpage</a>, <a href=``../lib/DB_File.html''>the DB_File manpage</a>.</p> <p>END_OF_SCRIPT use Config;</p> <p>my $file = __FILE__; $file =~ s/\.PL$//;</p> <p>$script =~ s/\~(\w+)\~/$Config{$1}/eg; if (!(open(FILE, &quot;&gt;$file&quot;)) || !(print FILE $script) || !(close(FILE))) { die &quot;Error while writing $file: $!\n&quot;; } print &quot;Extracted $file from &quot;,__FILE__,&quot; with variable substitutions.\n&quot;;</p> <p>if ( ! -f &quot;/etc/pmumps.cf&quot;) {</p> <p>$@ = undef; eval { require File::Copy; import File::Copy; };</p> <p>die &quot;Can't copy configuration: $@&quot; if $@;</p> <p>copy(&quot;mumps.cfg&quot;, &quot;/etc/pmumps.cf&quot;);</p> <p>print &quot;Created /etc/pmups.cf\n&quot;;</p> <p>}</p>

</body>

</html>