kup: use File::Spec->splitpath() to get the basename

Use File::Spec->splitpath() to obtain the basename for the put
command; this should make this portion of the script at least	work for
non-Unix clients.

Signed-off-by: H. Peter Anvin <hpa@linux.intel.com>

1 files changed, 3 insertions, 2 deletions

diff --git a/kup b/kup
index e3d3f9d..cdfb8a9 100755
--- a/kup
+++ b/kup
@@ -19,6 +19,7 @@ use strict;
 use warnings;
 use bytes;
 use Encode qw(encode decode);
+use File::Spec;
 
 my $blksiz = 1024*1024;
 
@@ -431,8 +432,8 @@ sub cmd_put()
 	cat_file('DATA', $file, undef);
 
 	# Get the local filename without directory
-	$file =~ m:^(|.*/)([^/]+)$:;
-	$file_tail = $2;
+	my($vol, $dir);
+	($vol, $dir, $file_tail) = File::Spec->splitpath($file);
     }
 
     my $sign   = shift @args;