File: 01_fix_GLOB_open.diff

package info (click to toggle)
libimage-base-bundle-perl 1.0.7-3.5
  • links: PTS
  • area: main
  • in suites: bookworm, trixie
  • size: 72 kB
  • sloc: makefile: 74
file content (15 lines) | stat: -rw-r--r-- 600 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
diff -urw Image-Xpm-1.09/Xpm.pm Image-Xpm-1.09.patched/Xpm.pm
--- Image-Xpm-1.09/Xpm.pm	2000-11-10 08:05:56.000000000 +1300
+++ Image-Xpm-1.09.patched/Xpm.pm	2004-08-22 17:15:20.000000000 +1200
@@ -167,8 +167,9 @@
     $self->{-cc} = ' ' x $self->{-cpp};
 
     my $file = $self->get('-file');
-    $self->load if defined $file and -r $file and not $self->{-pixels};
-
+    if (defined $file and not $self->{-pixels}) {
+    	$self->load if ref $file or -r $file;
+    }
     croak "new() `$file' not found or unreadable" 
     if defined $file and not defined $self->get('-width');