update for perl4 vs perl5

diff --git a/incremental/afs_create.pl b/incremental/afs_create.pl
index 4deda70d6171034b7ec425a16b75383d73912b87..a8d2a9147f42eac18e4fa2be1c98e5aca864b6b5 100644 (file)
--- a/incremental/afs_create.pl
+++ b/incremental/afs_create.pl
@@ -16,7 +16,7 @@ die "Usage: $0 locker type cell path user group\n" if (@ARGV != 6);
 
 # Lookup volume type
 ($c = $cell) =~ s/\./_/g;
-$vtype = eval "\$vtypes_$c{$type}";
+$vtype = eval "\$vtypes_${c}{$type}";
 die "Cannot create $type volumes in $cell\n" unless $vtype;
 $vname = $vtype . "." . $locker;
 $vname =~ s/[^-A-Za-z0-9_.]//g;                # strip out illegal characters