ossp-pkg/cvsfusion/RCS.pm 1.8 -> 1.9
--- RCS.pm 2004/04/23 21:38:48 1.8
+++ RCS.pm 2004/04/24 18:25:19 1.9
@@ -234,6 +234,7 @@
require Exporter;
use Carp;
use IO::File;
+no warnings;
our @ISA = qw(Exporter RCS::Object);
our @EXPORT_OK = qw(new destroy DESTROY dump load save parse format insert remove lookup set get);
@@ -693,7 +694,9 @@
my ($self, $id) = @_;
if (not defined($id)) {
- return values(%{$self->{-revision}});
+ return map { $self->{-revision}->{$_} }
+ grep { $_ !~ m|^-| }
+ keys %{$self->{-revision}};
}
else {
if ($id =~ m|^\d+(\.\d+)*$|) {
|
|
