From bcfe75acbc2e5c3bb3ed7fa06dbe62e7da1d4055 Mon Sep 17 00:00:00 2001 From: Doug Barton Date: Sat, 19 Apr 2003 06:04:29 +0000 Subject: A small patch to get xscreensaver-getimage-file working with perl < 5.6 --- .../files/patch-driver_xscreensaver-getimage-file | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 x11/xscreensaver/files/patch-driver_xscreensaver-getimage-file diff --git a/x11/xscreensaver/files/patch-driver_xscreensaver-getimage-file b/x11/xscreensaver/files/patch-driver_xscreensaver-getimage-file new file mode 100644 index 000000000000..5a9ed975f5ff --- /dev/null +++ b/x11/xscreensaver/files/patch-driver_xscreensaver-getimage-file @@ -0,0 +1,20 @@ +--- driver/xscreensaver-getimage-file.orig Sun Jan 19 21:27:38 2003 ++++ driver/xscreensaver-getimage-file Fri Apr 18 23:02:37 2003 +@@ -42,7 +42,7 @@ + # So we do it like this instead: + # + BEGIN { +- if (! defined(&S_ISLNK)) { # perhaps defined by "POSIX"? ++ if ((! defined(&S_ISLNK)) and ($] > 5.6)) { # perhaps defined by "POSIX"? + require Fcntl; + import Fcntl ':mode'; # if not, look for it in "Fcntl". + } +@@ -139,7 +139,7 @@ + if (S_ISDIR($mode)) { + push @dirs, $file; + print STDERR "$progname: found dir $file\n" if ($verbose > 2); +- } elsif (S_ISREG($mode) || S_ISLNK($mode)) { ++ } elsif (S_ISREG($mode) || (-l "$file")) { + push @all_files, $file; + print STDERR "$progname: found file $file\n" if ($verbose > 2); + } elsif ($verbose > 2) { -- cgit v1.2.3