Out of curiosity, is the bug still present if you use /\.txt$/ instead of 
m/\.txt$/ ?  

At the moment it looks like a Rakudo bug to me, but I haven't been able to golf 
it further to be certain.

Pm

On Tue, Dec 30, 2014 at 09:11:52AM +0200, Gabor Szabo wrote:
> Just to follow-up:
> The problem appears in
> https://github.com/szabgab/Perl6-Maven/commit/4346c96d63e97def55e789bbeebdbdaebe8b0b33
> 
> After that I have replaced the regex match with
> 
> if substr($tmpl, *-4) ne '.txt' {
> 
> that works correctly, but I'd still like to understand if the bug was in my
> code, or if this is some Rakudo issue?
> 
> Gabor
> 
> 
> On Tue, Dec 30, 2014 at 8:57 AM, Gabor Szabo <ga...@szabgab.com> wrote:
> 
> > I am puzzled by this.
> >
> > I have code like this:
> >
> > my @files = dir("$.source_dir").map({ $_.basename });
> >
> > for @files -> $tmpl {
> >
> >         if $tmpl !~~ m/\.txt$/ {
> >
> >             debug("Skipping '$tmpl' it does not end with .txt");
> >
> >             next;
> >
> >         }
> >
> >         debug("Source file $tmpl");
> >
> > }
> >
> > and sometimes(!) it skips when it encounters a file called   'perl6-zip.txt'
> > or a file called 'perl6-write-file.txt'
> >
> > More specifically when I ran the above code (part of
> > https://github.com/szabgab/Perl6-Maven )
> >
> > on https://github.com/szabgab/perl6maven.com on this commit:
> > https://github.com/szabgab/perl6maven.com/commit/672ca19f8cc0cf893568f93c4c1488c0cd777f7c
> >   everything worked fine, but when I ran the same code on the next commit (
> > https://github.com/szabgab/perl6maven.com/commit/75e188288638dea03a0b3329b249f3685859e701
> > ) then suddenly it started to skip those two files.
> >
> >
> >

Reply via email to