1 |
|
#!/usr/bin/perl |
2 |
|
## |
3 |
|
## MJAM::main -- MJAM main Package (multipurpose) |
4 |
|
## |
5 |
|
## $Id$ |
6 |
|
## |
7 |
|
## $Log$ |
8 |
|
## Revision 1.2 2002/06/15 04:25:07 cvsjoko |
9 |
|
## + header |
10 |
|
## + common function for detecting win32 |
11 |
|
## |
12 |
|
## |
13 |
|
## |
14 |
package MJAM::main; |
package MJAM::main; |
15 |
|
|
16 |
use Exporter; |
use Exporter; |
17 |
@ISA = qw ( Exporter ); |
@ISA = qw ( Exporter ); |
18 |
@EXPORT = qw ( DEBUG DEBUG_POE in_array ); |
@EXPORT = qw ( DEBUG DEBUG_POE in_array RUNNING_IN_HELL ); |
19 |
|
|
20 |
use strict; |
use strict; |
21 |
use warnings; |
use warnings; |
31 |
$bool_ok && return 1; |
$bool_ok && return 1; |
32 |
} |
} |
33 |
|
|
34 |
|
sub RUNNING_IN_HELL () { $^O eq 'MSWin32' } |
35 |
|
|
36 |
1; |
1; |