/[cvs]/nfo/perl/libs/shortcuts.pm
ViewVC logotype

Diff of /nfo/perl/libs/shortcuts.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Tue Feb 11 05:14:28 2003 UTC revision 1.3 by joko, Fri Feb 14 14:17:04 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/02/14 14:17:04  joko
6    ##  - shortened seperator
7    ##
8  ##  Revision 1.2  2003/02/11 05:14:28  joko  ##  Revision 1.2  2003/02/11 05:14:28  joko
9  ##  + refactored code from libp.pm  ##  + refactored code from libp.pm
10  ##  ##
# Line 51  sub run_cmd { Line 54  sub run_cmd {
54    my $cmd = shift;    my $cmd = shift;
55    my $caption = shift;    my $caption = shift;
56    #$cmd = 'perl ' . $cmd;    #$cmd = 'perl ' . $cmd;
57    my $sep = "-" x 90;    my $sep = "-" x 60;
58    print $sep, "\n";    print $sep, "\n";
59    print "  ", $cmd, "\n";    print "  ", $cmd, "\n";
60    print "  ", $caption, "\n" if $caption;    print "  ", $caption, "\n" if $caption;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed