ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/background
(Generate patch)

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.71 by root, Mon Jul 2 01:40:41 2012 UTC vs.
Revision 1.72 by root, Mon Jul 2 02:01:41 2012 UTC

289uses it), then the in-memory copy us returned instead. 289uses it), then the in-memory copy us returned instead.
290 290
291=item load_uc $path 291=item load_uc $path
292 292
293Load uncached - same as load, but does not cache the image, which means it 293Load uncached - same as load, but does not cache the image, which means it
294is I<always> loaded from the filesystem again. 294is I<always> loaded from the filesystem again, even if another copy of it
295is in memory at the time.
295 296
296=cut 297=cut
298
299 sub load_uc($) {
300 $self->new_img_from_file ($_[0])
301 }
297 302
298 sub load($) { 303 sub load($) {
299 my ($path) = @_; 304 my ($path) = @_;
300 305
301 $_IMG_CACHE{$path} || do { 306 $_IMG_CACHE{$path} || do {
302 my $img = $self->new_img_from_file ($path); 307 my $img = load_uc $path;
303 Scalar::Util::weaken ($_IMG_CACHE{$path} = $img); 308 Scalar::Util::weaken ($_IMG_CACHE{$path} = $img);
304 $img 309 $img
305 } 310 }
306 } 311 }
307 312

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines