fix for perl4 vs perl5 syntax

diff --git a/incremental/afs_rename.pl b/incremental/afs_rename.pl
index 479ae1d1e9c0a578a200bcf73fe9db1d1fe83a5d..333d769b986c20ca075aae8aea1c1992fcaf840b 100644 (file)
--- a/incremental/afs_rename.pl
+++ b/incremental/afs_rename.pl
@@ -22,7 +22,7 @@ die "Can only handle AFS and ERR lockers\n"
 
 # Lookup volume type
 ($c = $newcell) =~ s/\./_/g;
-$vtype = eval "\$vtypes_$c{$newltype}";
+$vtype = eval "\$vtypes_${c}{$newltype}";
 die "Cannot handle $newltype volumes\n" unless $vtype;
 $newvname = $vtype . "." . $newname;
 
@@ -33,7 +33,7 @@ if ($oldtype eq "ERR") {
 
     # Lookup volume type for old locker
     ($c = $oldcell) =~ s/\./_/g;
-    $vtype = eval "\$vtypes_$c{$oldltype}";
+    $vtype = eval "\$vtypes_${c}{$oldltype}";
     die "Cannot handle $oldltype volumes\n" unless $vtype;
     $oldvname = $vtype . "." . $oldname;
     $oldvname =~ s/[^-A-Za-z0-9_.]//g; # strip out illegal characters