--- nfo/perl/libs/shortcuts.pm	2003/02/14 14:17:04	1.3
+++ nfo/perl/libs/shortcuts.pm	2003/02/22 17:19:36	1.4
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.3 2003/02/14 14:17:04 joko Exp $
+##  $Id: shortcuts.pm,v 1.4 2003/02/22 17:19:36 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: shortcuts.pm,v $
+##  Revision 1.4  2003/02/22 17:19:36  joko
+##  + unix compatibility fix
+##
 ##  Revision 1.3  2003/02/14 14:17:04  joko
 ##  - shortened seperator
 ##
@@ -59,6 +62,14 @@
   print "  ", $cmd, "\n";
   print "  ", $caption, "\n" if $caption;
   print $sep, "\n";
+  
+  # fix for unix: prefix command with './' if no pathname (relative or absolute) included
+  if (!RUNNING_IN_HELL()) {
+    if ($cmd !~ m/\//) {
+      $cmd = "./$cmd";
+    }
+  }
+  
   system($cmd);
   #`$cmd`;
   print "ready.", "\n";
@@ -81,4 +92,7 @@
   return ($bool ? 'ok' : 'failed');
 }
 
+sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
+
+
 1;