[xiph-cvs] cvs commit: snatch snatch.pl

[Monty]

xiphmont    01/11/08 22:34:47

  Modified:    .        snatch.pl
  Log:
  oops, strip out some prints.

Revision  Changes    Path
1.13      +0 -8      snatch/snatch.pl

Index: snatch.pl
===================================================================
RCS file: /usr/local/cvsroot/snatch/snatch.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- snatch.pl	2001/11/09 06:33:04	1.12
+++ snatch.pl	2001/11/09 06:34:46	1.13
@@ -699,9 +699,7 @@
 }
 
 sub TimerStart{
-    print "$_[2]\n";
     my($try,$etry)=TimerWhen(@_);
-    print " ******** $try\n";
     $try;
 }
                
@@ -776,8 +774,6 @@
         }
         
         if($try==-1){
-	    print "$year $month $day $thour $minute\n";
-	    
             return($start,$end);
         }
 
@@ -785,21 +781,17 @@
             # current best guess straddles now 
             if($start<$now && $start>$try){
                 #shouldn't allow this case but eh
-
-	    print "$year $month $day $thour $minute\n";
                 return ($start,$end);
             }
         }
 
         if($etry<$now){
             # current guess entirely preceeds now; prefer any guess in the future
-	    print "$year $month $day $thour $minute\n";
             return ($start,$end) if($start>$try);
         }
 
         if($try>$now){
             # current guess in the future.  prefer any guess earlier in time that is not entirely past.
-	    print "$year $month $day $thour $minute\n";
             return ($start,$end) if($start<$try && $end>$now);
         }
 

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.