@@ -34,7 +34,7 @@ PostgresVersion - class representing PostgreSQL version numbers
3434
3535=head1 DESCRIPTION
3636
37- PostgresVersionencapsulated Postgres version numbers, providing parsing
37+ PostgresVersionencapsulates Postgres version numbers, providing parsing
3838of common version formats and comparison operations.
3939
4040=cut
@@ -73,25 +73,22 @@ sub new
7373my $class =shift ;
7474my $arg =shift ;
7575
76+ chomp $arg ;
77+
7678# Accept standard formats, in case caller has handed us the output of a
7779# postgres command line tool
78- $arg =$1
79- if ($arg =~m /\( ?PostgreSQL\) ? (\d +(?:\.\d +)*(?:devel)?)/
80+ my $devel ;
81+ ($arg ,$devel ) = ($1 ,$2 )
82+ if ($arg =~m /\( ?PostgreSQL\) ? )?(\d +(?:\.\d +)*)(devel)?/
8083
8184# Split into an array
8285my @result =split (/ \. / $arg );
8386
8487# Treat development versions as having a minor/micro version one less than
8588# the first released version of that branch.
86- if ($result [$#result ] =~m /\d +)devel$ /
87- {
88- pop (@result );
89- push (@result ,$1 , -1);
90- }
89+ push @result , -1if ($devel );
9190
92- my $res = [@result ];
93- bless $res ,$class ;
94- return $res ;
91+ return bless \@result ,$class ;
9592}
9693
9794