S_del_body is sufficiently small that inlining it is a space win.
[p5sagit/p5-mst-13.2.git] / symbian / sanity.pl
1 use strict;
2
3 if (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
9 if (# 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
18 unless (-f "symbian/symbianish.h") {
19   print "You must run this in the top level directory.\n";
20   exit(1);
21 }
22
23 if ($] < 5.008) {
24   print "You must configure with Perl 5.8 or later.\n";
25   exit(1);
26 }
27
28 1;