Anonymous avatar Anonymous committed 0c80221

Fixed some glaring regression bugs in WWW::OpenSVN.

Comments (0)

Files changed (1)

Perl/lib/WWW/OpenSVN.pm

 
 package WWW::OpenSVN::Error;
 
+use vars qw(@ISA);
+
+@ISA=(qw(WWW::OpenSVN::Base));
+
 sub initialize
 {
     my $self = shift;
 
 package WWW::OpenSVN;
 
+use vars qw(@ISA);
+
+@ISA=(qw(WWW::OpenSVN::Base));
+
 sub initialize
 {
     my $self = shift;
 sub get_repos_revision
 {
     my $self = shift;
-    if (exists($self->{'repos_version'}))
+    if (exists($self->{'repos_revision'}))
     {
-        return $self->{'repos_version'};
+        return $self->{'repos_revision'};
     }
     my $project = $self->project();
     my $url = "http://opensvn.csie.org/$project/";
     my $page = get($url);
     if ($page =~ /<title>Revision (\d+): \/<\/title>/)
     {
-        return ($self->{'repos_version'} = $1);
+        return ($self->{'repos_revision'} = $1);
     }
     else
     {
 
     my $url = "https://OpenSVN.csie.org/";
 
-    my $repos_top_version = get_repos_revision($self->project());
+    my $repos_top_version = $self->get_repos_revision();
     my %login_params =
     (
         'project' => $self->project(),
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.