From 312a647c0165029087776d8d192aa38ca149e0fd Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sat, 27 Dec 2003 13:35:03 +0000
Subject: [PATCH] Some more fixes to the release scripts

git-archimport-id: mj@ucw.cz--public/pciutils--main--2.2--patch-31
---
 maint/release    | 2 +-
 maint/release.pm | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/maint/release b/maint/release
index 073836d..f33ef74 100755
--- a/maint/release
+++ b/maint/release
@@ -33,6 +33,6 @@ $r->GenFile("pciutils.lsm");
 $r->Dispatch;
 if ($r->{"do_upload"}) {
 	print "Uploading pci.ids to Jabberwock\n";
-	`scp pci.ids pciids\@jabberwock.ucw.cz:05-pciutils.new`; die if $?;
+	`scp -C pci.ids pciids\@jabberwock.ucw.cz:05-pciutils.new`; die if $?;
 	`ssh pciids\@jabberwock.ucw.cz mv 05-pciutils.new origs/05-pciutils`; die if $?;
 }
diff --git a/maint/release.pm b/maint/release.pm
index a3c88ec..73d2494 100644
--- a/maint/release.pm
+++ b/maint/release.pm
@@ -275,7 +275,11 @@ sub Upload($) {
 		print "<confirm> "; <STDIN>;
 		if ($url =~ m@^scp://([^/]+)(.*)@) {
 			$, = " ";
-			my $cmd = "scp @files $1:$2\n";
+			my $host = $1;
+			my $dir = $2;
+			$dir =~ s@^/~@~@;
+			$dir =~ s@^/\./@@;
+			my $cmd = "scp @files $host:$dir\n";
 			`$cmd`; die if $?;
 		} elsif ($url =~ m@ftp://([^/]+)(.*)@) {
 			my $host = $1;
-- 
2.39.2