This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Glob.xs: Remove comment
authorFather Chrysostomos <sprout@cpan.org>
Sat, 29 Oct 2011 07:51:42 +0000 (00:51 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 29 Oct 2011 07:51:42 +0000 (00:51 -0700)
This was obsoleted by commit f4cbf9907d.

ext/File-Glob/Glob.xs

index 10d39c5..6622da5 100644 (file)
@@ -140,10 +140,6 @@ csh_glob(pTHX_ AV *entries, SV *patsv)
        patend = pat + len;
 
        /* extract patterns */
-       /* XXX this is needed for compatibility with the csh
-        * implementation in Perl.  Need to support a flag
-        * to disable this behavior.
-        */
        s = pat-1;
        while (++s < patend) {
            switch (*s) {