--- joko/Scripts/psh/lib/MJAM/main.pm	2002/06/14 21:22:09	1.1
+++ joko/Scripts/psh/lib/MJAM/main.pm	2002/06/15 04:25:07	1.2
@@ -1,8 +1,21 @@
+#!/usr/bin/perl
+##
+## MJAM::main -- MJAM main Package (multipurpose)
+##
+## $Id: main.pm,v 1.2 2002/06/15 04:25:07 cvsjoko Exp $
+##
+## $Log: main.pm,v $
+## Revision 1.2  2002/06/15 04:25:07  cvsjoko
+## + header
+## + common function for detecting win32
+##
+##
+##
 package MJAM::main;
 
 use Exporter;
 @ISA = qw ( Exporter );
-@EXPORT = qw ( DEBUG DEBUG_POE in_array );
+@EXPORT = qw ( DEBUG DEBUG_POE in_array RUNNING_IN_HELL );
 
 use strict;
 use warnings;
@@ -18,4 +31,6 @@
   $bool_ok && return 1;
 }
 
+sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
+
 1;
\ No newline at end of file