Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 65 lines (56 sloc) 1.302 kb
5550c3a perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
1 #!/usr/bin/perl
2
3 package mvhints;
4
5 sub get_hints {
6 my @out;
7
8 my $condition;
9 my $routine;
10
b31a690 Jon Jensen Move DEV_4_7_0 development branch to repository trunk.
jonjensen authored
11 $condition = sub { $^O =~ /nolongernecessary/i };
5550c3a perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
12 $routine = sub {
76e6918 perusionmike Fixed problem with reference to "minivend.cfg" for BSD.
perusionmike authored
13 my $fn = 'interchange.cfg.dist';
5550c3a perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
14 rename $fn, "$fn.bak";
15 open HINTIN, "$fn.bak"
16 or die "cannot open $fn.bak: $!\n";
17 open HINTOUT, ">$fn"
18 or die "cannot write $fn: $!\n";
19 while(<HINTIN>) {
20 s/
21 ^\s*Housekeeping\s+\d+.*$
4eb332a perusionmike * Added check for not being able to determine current directory
perusionmike authored
22 /# Changed for $^O, no safe signals\nHousekeeping 1/xig;
5550c3a perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
23 s/
24 ^\s*MaxServers\s+\d+.*$
4eb332a perusionmike * Added check for not being able to determine current directory
perusionmike authored
25 /# Changed for $^O, no safe signals\nMaxServers 0/xig;
5550c3a perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
26 print HINTOUT $_;
27 }
28 close HINTIN;
29 close HINTOUT;
30 unlink "$fn.bak";
31 return 1;
32 };
33 push @out, [ $condition, $routine ];
34
d8cf339 perusionmike * Allow Interchange to install and run on a threaded system without
perusionmike authored
35 $condition = sub { $Global::TryingThreads && $^O =~ /linux/i };
36 $routine = sub {
37 my $fn = 'interchange.cfg.dist';
38 rename $fn, "$fn.bak";
39 open HINTIN, "$fn.bak"
40 or die "cannot open $fn.bak: $!\n";
41 open HINTOUT, ">$fn"
42 or die "cannot write $fn: $!\n";
43 while(<HINTIN>) {
44 print HINTOUT $_;
45 }
ba0d8b7 Stefan Hornburg (Racke) Correct detection of broken getppid() for Perl 5.10.0 (RT #286)
racke authored
46 if ($^V lt 5.10.0) {
47 print HINTOUT <<EOF;
d8cf339 perusionmike * Allow Interchange to install and run on a threaded system without
perusionmike authored
48
49 ## Added because threaded Perl on linux has broken getppid() as
50 ## of this distribution
51 Variable MV_GETPPID_BROKEN 1
52 EOF
ba0d8b7 Stefan Hornburg (Racke) Correct detection of broken getppid() for Perl 5.10.0 (RT #286)
racke authored
53 close HINTIN;
54 close HINTOUT;
55 unlink "$fn.bak";
56 return 1;
57 }
d8cf339 perusionmike * Allow Interchange to install and run on a threaded system without
perusionmike authored
58 };
59 push @out, [ $condition, $routine ];
60
5550c3a perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
61 return @out;
62 }
63
64 1;
Something went wrong with that request. Please try again.