--- nfo/perl/libs/shortcuts.pm	2003/07/02 11:17:32	1.17
+++ nfo/perl/libs/shortcuts.pm	2004/06/21 14:13:21	1.20
@@ -1,7 +1,16 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.17 2003/07/02 11:17:32 jonen Exp $
+##  $Id: shortcuts.pm,v 1.20 2004/06/21 14:13:21 jonen Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: shortcuts.pm,v $
+##  Revision 1.20  2004/06/21 14:13:21  jonen
+##  added helper function
+##
+##  Revision 1.19  2004/05/11 19:45:30  joko
+##  now exporting RUNNING_IN_HELL
+##
+##  Revision 1.18  2003/12/05 04:58:04  joko
+##  + minor update: doesn't require IPC::Session anymore
+##
 ##  Revision 1.17  2003/07/02 11:17:32  jonen
 ##  minor changes
 ##
@@ -74,6 +83,8 @@
   get_chomped
   bool2status
   make_guid
+  RUNNING_IN_HELL
+  RUNNING_IN_HEAVEN
 );
 
 
@@ -84,7 +95,7 @@
 use Carp;
 
 # NEW - 2003-06-23 for Linux (what about *BSD?)
-use IPC::Session;
+#use IPC::Session;
 
 use File::Spec;
 use Proc::Background;
@@ -105,6 +116,7 @@
 }
 
 sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
+sub RUNNING_IN_HEAVEN () { $^O =~ m/bsd/ }
 
 
 sub get_executable {
@@ -337,6 +349,7 @@
 
   } else {
     print STDOUT "run_cmd: system('$cmd').", "\n";
+    #print $ENV{PERL5LIB}, "\n";
     system($cmd);
   }