From: "Greg A. Woods" <[email protected]>

why it didn't use a plain shell-like glob I'll never guess.

why it exists in the first place is unimaginable too.
---
 tools/nut-usbinfo.pl |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/nut-usbinfo.pl b/tools/nut-usbinfo.pl
index bd74bf8..2ef2934 100755
--- a/tools/nut-usbinfo.pl
+++ b/tools/nut-usbinfo.pl
@@ -211,7 +211,8 @@ sub gen_usb_files
 
 sub find_usbdevs
 {
-       return $File::Find::prune = 1 if $_ eq '.svn';
+       # maybe there's an option to turn off all .* files, but anyway this is 
stupid
+       return $File::Find::prune = 1 if ($_ eq '.svn') || ($_ =~ /^\.#/);
 
        my $nameFile=$_;
        my $lastComment="";
-- 
1.7.9.2


_______________________________________________
Nut-upsdev mailing list
[email protected]
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/nut-upsdev

Reply via email to