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