# | Line 43 | Line 43 | sub write() | |
---|---|---|
43 | use Data::Dumper; | |
44 | use File::Copy; | |
45 | ||
46 | < | print "[ CacheUtilities::write() ] Writing cache ",$cachefilename,"\n"; |
46 | > | print "[ CacheUtilities::write() ] Writing cache ",$cachefilename,"\n", if ($ENV{SCRAM_DEBUG}); |
47 | ||
48 | # Rename the cache file to make a backup copy: | |
49 | move($cachefilename,$cachefilename.".bak") if ( -r $cachefilename); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |