diff tracknamer.tcl @ 12:2bcb84ead02e default tip

Use Tcl 8.2 Fix setting the album artist changes
author darius
date Thu, 18 Jul 2002 06:47:39 +0000
parents 74031379d3cb
children
line wrap: on
line diff
--- a/tracknamer.tcl	Thu Jul 18 06:38:42 2002 +0000
+++ b/tracknamer.tcl	Thu Jul 18 06:47:39 2002 +0000
@@ -1,6 +1,6 @@
 #!/bin/sh
 # tcl magic \
-exec tclsh8.0 $0 $*
+exec tclsh8.2 $0 $*
 
 #
 # This software is copyright Daniel O'Connor (darius@dons.net.au) 1998, 1999
@@ -137,7 +137,7 @@
     global tracks;
 
     set tracks(albumname) $tracks(tmp:albumname);
-    set $tracks(albumartist) tracks(tmp:albumartist);
+    set tracks(albumartist) $tracks(tmp:albumartist);
 
     for { set i 1 } { $i <= $tracks(number) } { incr i } {
 	set tracks(artist:$i) $tracks(tmp:artist:$i);