S_del_body is sufficiently small that inlining it is a space win.
[p5sagit/p5-mst-13.2.git] / symbian / sanity.pl
CommitLineData
27da23d5 1use strict;
2
3if (exists $ENV{'!C:'}) {
4 print "You are running this under Cygwin, aren't you?\n";
5 print "I'm sorry but only cmd.exe will work.\n";
6 exit(1);
7}
8
9if (# SDK 2.x
10 $ENV{PATH} !~ m!c:\\program files\\common files\\symbian\\tools!i
11 &&
12 # SDK 1.2
13 $ENV{PATH} !~ m!c:\\symbian\\6.1\\shared\\epoc32\\tools!i) {
14 print "I think you have not installed the Symbian SDK.\n";
15 exit(1);
16}
17
18unless (-f "symbian/symbianish.h") {
19 print "You must run this in the top level directory.\n";
20 exit(1);
21}
22
23if ($] < 5.008) {
24 print "You must configure with Perl 5.8 or later.\n";
25 exit(1);
26}
27
281;