1#!/usr/bin/perl
2
3=for comment
4
5The contents of this script should normally never run!  The perl wrapper
6should pick the correct script in /usr/bin by appending the appropriate version.
7You can try appending the appropriate perl version number.  See perlmacosx.pod
8for more information about multiple version support in Mac OS X.
9
10=cut
11
12use strict;
13use Config ();
14
15my @alt = grep {m,^$0\d+\.\d+(?:\.\d+)?$,} glob("$0*");
16print STDERR <<"EOF-A";
17perl version $Config::Config{version} can't run $0.  Try the alternative(s):
18
19EOF-A
20if(scalar(@alt) > 0) {
21    for(@alt) {
22	my($ver) = /(\d+\.\d+(?:\.\d+)?)/;
23	print STDERR "$_ (uses perl $ver)\n";
24    }
25} else {
26	print STDERR "(Error: no alternatives found)\n";
27}
28die <<'EOF-B';
29
30Run "man perl" for more information about multiple version support in
31Mac OS X.
32EOF-B
33