This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix a typo in a comment
authorThorsten Glaser <tg@mirbsd.org>
Sun, 16 Oct 2011 00:42:39 +0000 (00:42 +0000)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 16 Oct 2011 05:51:25 +0000 (22:51 -0700)
someone already fixed the expanshions but kept the preformed on the same line

Signed-off-by: Thorsten Glaser <tg@mirbsd.org>
lib/File/DosGlob.pm

index 90434fd..e8fcc97 100644 (file)
@@ -139,7 +139,7 @@ sub glob {
                my $tmp = "$start$match$end";
                while ( $tmp =~ s/^(.*?)(?<!\\)\{(?:.*(?<!\\)\,)?(.*\Q$match\E.*?)(?:(?<!\\)\,.*)?(?<!\\)\}(.*)$/$1$2$3/ ) {
                    #print "Striped: $tmp\n";
-                   #  these expansions will be preformed by the original,
+                   #  these expansions will be performed by the original,
                    #  when we call REHASH.
                }
                push @appendpat, ("$tmp");