/[wait]/cvs-head/lib/WAIT.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cvs-head/lib/WAIT.pm

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

revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC revision 19 by ulpfr, Tue May 9 11:29:45 2000 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  #                              -*- Mode: Cperl -*-  #                              -*- Mode: Cperl -*-
3  # $Basename: WAIT.pm $  # $Basename: WAIT.pm $
4  # $Revision: 1.6 $  # $Revision: 1.7 $
5  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
6  # Created On      : Wed Nov  5 16:59:32 1997  # Created On      : Wed Nov  5 16:59:32 1997
7  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
8  # Last Modified On: Wed Nov 12 18:26:44 1997  # Last Modified On: Mon May 31 22:34:35 1999
9  # Language        : CPerl  # Language        : CPerl
10  # Update Count    : 4  # Update Count    : 5
11  # Status          : Unknown, Use with caution!  # Status          : Unknown, Use with caution!
12  #  #
13  # (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.  # (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.
# Line 19  require DynaLoader; Line 19  require DynaLoader;
19  use vars qw($VERSION @ISA);  use vars qw($VERSION @ISA);
20  @ISA = qw(DynaLoader);  @ISA = qw(DynaLoader);
21    
22  $VERSION = sprintf '%.4f', map $_/10,'$ProjectVersion: 17.1 $ ' =~ /([\d.]+)/;  # $Format: "$\VERSION = sprintf '%5.3f', ($ProjectMajorVersion$ * 100 + ($ProjectMinorVersion$-1))/1000;"$
23    $VERSION = sprintf '%5.3f', (18 * 100 + (1-1))/1000;
24    
25    
26  bootstrap WAIT $VERSION;  bootstrap WAIT $VERSION;
27    
Legend:
Removed from v.13  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26