| Subject: | ->dates doesn't work. |
my $file = VCS::File->new($url);
print join "\n", map { $_->date } $file->versions;
This will produce a whole bunch of uninit warnings. There's a small mistake in the regex to read the RCS version log.
Patch attached.
--- VCS/Cvs.pm 2004/11/15 08:54:17 1.1
+++ VCS/Cvs.pm 2004/11/15 08:54:20
@@ -40,7 +40,7 @@
chdir $cwd;
}
my @sections = split /\n[=\-]+\n/, $log_text;
- @sections = ($sections[0], grep { /^revision $version(?:\s+locked by.*?)\n/ } @sections)
+ @sections = ($sections[0], grep { /^revision $version(?:\s+locked by.*?)?\n/ } @sections)
if $version;
#map { print "SEC: $_\n" } @sections;
@sections;