--- nfo/perl/libs/shortcuts.pm	2003/12/05 04:58:04	1.18
+++ nfo/perl/libs/shortcuts.pm	2004/06/21 14:13:21	1.20
@@ -1,7 +1,13 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.18 2003/12/05 04:58:04 joko 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
 ##
@@ -77,6 +83,8 @@
   get_chomped
   bool2status
   make_guid
+  RUNNING_IN_HELL
+  RUNNING_IN_HEAVEN
 );
 
 
@@ -108,6 +116,7 @@
 }
 
 sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
+sub RUNNING_IN_HEAVEN () { $^O =~ m/bsd/ }
 
 
 sub get_executable {