X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Futf8_heavy.pl;h=c7bf527b1f8bc86e987b27ec00a2c7832bf3f6bd;hb=73e51c8a2e5bd997f8b13e4f86b01e266a2d73f5;hp=8a2ba7106600d9bace76f3e4cd04247e25ba186b;hpb=e81465beff59e6c9907613fe00ebce59d81fb1e8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 8a2ba71..c7bf527 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -187,11 +187,12 @@ sub SWASHNEW {
 	    ## (exception: user-defined properties and mappings), so we
 	    ## have a filename, so now we load it if we haven't already.
 	    ## If we have, return the cached results. The cache key is the
-	    ## file to load.
+	    ## class and file to load.
 	    ##
-	    if ($Cache{$file} and ref($Cache{$file}) eq $class) {
+	    my $found = $Cache{$class, $file};
+	    if ($found and ref($found) eq $class) {
 		print STDERR "Returning cached '$file' for \\p{$type}\n" if DEBUG;
-		return $Cache{$class, $file};
+		return $found;
 	    }
 
 	    $list = do $file; die $@ if $@;