--- nfo/perl/libs/shortcuts.pm	2003/02/11 05:14:28	1.2
+++ nfo/perl/libs/shortcuts.pm	2003/02/14 14:17:04	1.3
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.2 2003/02/11 05:14:28 joko Exp $
+##  $Id: shortcuts.pm,v 1.3 2003/02/14 14:17:04 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: shortcuts.pm,v $
+##  Revision 1.3  2003/02/14 14:17:04  joko
+##  - shortened seperator
+##
 ##  Revision 1.2  2003/02/11 05:14:28  joko
 ##  + refactored code from libp.pm
 ##
@@ -51,7 +54,7 @@
   my $cmd = shift;
   my $caption = shift;
   #$cmd = 'perl ' . $cmd;
-  my $sep = "-" x 90;
+  my $sep = "-" x 60;
   print $sep, "\n";
   print "  ", $cmd, "\n";
   print "  ", $caption, "\n" if $caption;