From e0474c739133b9a1f46843e0555841540d0d7475 Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <andreas.koenig.7os6VVqR@franz.ak.mind.de>
Date: Thu, 26 Feb 2009 08:37:40 +0100
Subject: [PATCH] swallow everything up to a slash in ARGV[0] for convenient
 copy&pasting of distronames

---
 bin/ctgetreports | 1 +
 1 file changed, 1 insertion(+)

diff --git a/bin/ctgetreports b/bin/ctgetreports
index f02a61d..a13541b 100755
--- a/bin/ctgetreports
+++ b/bin/ctgetreports
@@ -298,6 +298,7 @@ if (my $reports = delete $Opt{report}) {
     my $dumpfile = $Opt{dumpfile} || "ctgetreports.out";
     YAML::Syck::DumpFile($dumpfile,$dumpvars);
 } else {
+    $ARGV[0] =~ s|.+/||;
     CPAN::Testers::ParseReport::parse_distro($ARGV[0],%Opt);
 }
 
-- 
2.11.4.GIT