[Quilt-dev] quilt Prototype mismatch patch

[Reini Urban]

I needed the following patch with perl-5.10, to workaround a prototype 
mismatch warning, like
$ quilt refresh
Prototype mismatch: sub main::LC_ALL: none vs () at 
/usr/share/quilt/scripts/remove-trailing-ws line 21

Also: The scripts should go to /usr/lib/quilt btw. and not to share

$ quilt --version
0.46
$ uname -a
CYGWIN_NT-5.1 reini 1.5.25(0.156/4/2) 2008-06-12 19:34 i686 Cygwin
$ perl -v

This is perl, v5.10.0 built for cygwin-thread-multi-64int
(with 6 registered patches, see perl -V for more detail)
...

diff -bu /usr/share/quilt/scripts/remove-trailing-ws~ 
/usr/share/quilt/scripts/remove-trailing-ws

--- /usr/share/quilt/scripts/remove-trailing-ws~        2008-12-27 
13:53:09.209125000 +0000
+++ /usr/share/quilt/scripts/remove-trailing-ws 2008-12-27 
13:53:09.209125000 +0000
@@ -18,7 +18,7 @@
     if (eval { require Locale::gettext }) {
        import Locale::gettext;
        require POSIX;
-       import POSIX, qw(setlocale);
+       POSIX->import('setlocale');
     } else {
        eval '
            use constant LC_MESSAGES => 0;

--
Reini Urban
http://phpwiki.org/  http://murbreak.at/

diff -bu /usr/share/quilt/scripts/remove-trailing-ws~ 
/usr/share/quilt/scripts/remove-trailing-ws
--- /usr/share/quilt/scripts/remove-trailing-ws~        2008-12-27 
13:53:09.209125000 +0000
+++ /usr/share/quilt/scripts/remove-trailing-ws 2008-12-27 13:53:09.209125000 
+0000
@@ -18,7 +18,7 @@
     if (eval { require Locale::gettext }) {
        import Locale::gettext;
        require POSIX;
-       import POSIX, qw(setlocale);
+       POSIX->import('setlocale');
     } else {
        eval '
            use constant LC_MESSAGES => 0;