--- nfo/perl/libs/shortcuts.pm	2004/05/11 19:45:30	1.19
+++ nfo/perl/libs/shortcuts.pm	2004/06/21 14:13:21	1.20
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.19 2004/05/11 19:45:30 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
 ##
@@ -81,6 +84,7 @@
   bool2status
   make_guid
   RUNNING_IN_HELL
+  RUNNING_IN_HEAVEN
 );
 
 
@@ -112,6 +116,7 @@
 }
 
 sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
+sub RUNNING_IN_HEAVEN () { $^O =~ m/bsd/ }
 
 
 sub get_executable {