Changeset 1076 in ProjectBuilder for devel/pb-modules

Timestamp:

Jul 26, 2010, 1:18:49 AM (15 years ago)

Author:

Bruno Cornec

Message:

r3960@localhost: bruno | 2010-07-22 22:11:48 +0200

• Fix a bug on pb_get_uri revealed by introduction of first successful set of tests ;-) (TBC)
• Add support for mandriva 2010.1

Location:

devel/pb-modules

Files:

• lib/ProjectBuilder/Base.pm (modified) (2 diffs)
• t (moved) (moved from devel/t )
• t/Base.t (modified) (1 diff)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -71 +71 @@
   # Analysis a URI and return its components in a table
   #
-  my ($scheme, $account, $host, $port, $path) = pb_get_uri("svn+ssh://ac@my.server.org/path/to/dir");
+  my ($scheme, $account, $host, $port, $path) = pb_get_uri("svn+ssh://ac@my.server.org:port/path/to/dir");
 
   #
@@ -196 +196 @@
 $account = "" if (not defined $account);
 $host = "" if (not defined $host);
-$port = "" if (not defined $port);
+if (not defined $port) {
+    $port = "" 
+} else {
+    # Remove extra : at start
+    $port =~ s/^://;
+}
 
 pb_log(2,"DEBUG: scheme:$scheme ac:$account host:$host port:$port path:$path\n");

devel/pb-modules/t/Base.t

@@ -5 +5 @@
 use strict;
 use Test::More;
+use ProjectBuilder::Base;
 
 my $nt = 0;
 
-my $url = "svn+ssh://account\@machine.sdom.tld:8080/path/to/file";
+my $uri = "svn+ssh://account\@machine.sdom.tld:8080/path/to/file";
 my ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);