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

[Monty]

xiphmont    01/11/08 22:50:06

  Modified:    .        snatch.pl
  Log:
  fixed a lexical scoping bug

Revision  Changes    Path
1.14      +7 -6      snatch/snatch.pl

Index: snatch.pl
===================================================================
RCS file: /usr/local/cvsroot/snatch/snatch.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- snatch.pl	2001/11/09 06:34:46	1.13
+++ snatch.pl	2001/11/09 06:50:05	1.14
@@ -1148,7 +1148,7 @@
     my at listarray;
     
     $daytrans={
-	'*',' ',
+	'*','*',
         '0',"Sunday ",
         '1',"Monday ",
         '2',"Tuesday ",
@@ -1158,7 +1158,7 @@
         '6',"Saturday "};
 
     $monthtrans={
-	'*',' ',
+	'*','*',
         '1',"January ",
         '2',"February ",
         '3',"March ",
@@ -1278,6 +1278,11 @@
     my($year,$month,$day,$dayofweek,$hour,$minute,$duration,$audio,$video,$username,
        $password,$outfile,$url)=SplitTimerEntry(shift);
 
+    my$duration_hour=int($duration/3600);
+    my$duration_minute=int(($duration-$duration_hour*3600+59)/60);
+    $duration_minute='00' if("$duration_minute" eq '0');
+
+
     my($nowsec,$nowmin,$nowhour,$nowday,$nowmonth,$nowyear)=localtime time;    
     $nowmonth++;
     $nowyear+=1900;
@@ -1431,10 +1436,6 @@
     my$t=$tentry_shell->Label(-text=>"Duration:")->
         place(-x=>$x, -y=>$y, -height=>$tt->reqheight(),-bordermode=>outside);
     $x+=$t->reqwidth()+5;
-
-    my$duration_hour=int($duration/3600);
-    my$duration_minute=int(($duration-$duration_hour*3600+59)/60);
-    $duration_minute='00' if("$duration_minute" eq '0');
 
     # duration hour
     my$t=$tentry_shell->Entry(-width=>2,-textvariable=>\$duration_hour,-justify=>right)->

--- >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.