Hi,
On Tue, 19 Feb 2008, Martin Langhoff wrote:
> Johannes Schindelin wrote:
>
> > Well, please try for yourself. If it works for you, then I probably
> > had another error in my patch.
>
> $ perl -MFile::Basename -e 'print basename("/foo/bar/baz");'
> baz
>
> Johannes, what are you smoking? No PUI here! ;-)
Unfortunately, I am not smoking, because my throat is inflamed...
Checked again, and sure enough, it works. So, this is a replacement patch
to be squashed in... So: I'm sorry...
Ciao,
Dscho
-- snipsnap --
git-cvsexportcommit.perl | 3 +--
1 files changed, 1 insertions(+), 2 deletions(-)
diff --git a/git-cvsexportcommit.perl b/git-cvsexportcommit.perl
index c00368b..b8114f7 100755
--- a/git-cvsexportcommit.perl
+++ b/git-cvsexportcommit.perl
@@ -207,8 +207,7 @@ if (@canstatusfiles) {
my @canstatusfiles2 = ();
my %fullname = ();
foreach my $name (keys %todo) {
- my $basename = $name;
- $basename =~ s/.*\///;
+ my $basename = basename($name);
$basename = "no file " . $basename if (exists($added{$basename}));
chomp($basename);
-
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
