[SCM] Debian Qt/KDE packaging tools branch, master, updated. debian/0.11.0
Modestas Vainius
modax at alioth.debian.org
Fri Mar 11 01:30:50 UTC 2011
The following commit has been merged in the master branch:
commit cfdb04f66b44ab39d0dcf93f935994f159a52221
Author: Modestas Vainius <modestas at vainius.eu>
Date: Fri Mar 11 00:07:53 2011 +0200
Speed up dhmk.pl a bit by not loading any external modules.
Do not use File::Basename and File::Spec modules and reimplement basename(),
dirname(), catfile() locally.
---
qt-kde-team/2/dhmk.pl | 15 ++++++++++++---
1 files changed, 12 insertions(+), 3 deletions(-)
diff --git a/qt-kde-team/2/dhmk.pl b/qt-kde-team/2/dhmk.pl
index db43981..8718ac6 100755
--- a/qt-kde-team/2/dhmk.pl
+++ b/qt-kde-team/2/dhmk.pl
@@ -189,8 +189,17 @@ sub gen_extraopts {
package main;
-use File::Basename qw();
-use File::Spec;
+sub basename {
+ my ($filename) = @_;
+ $filename =~ s,^.*/([^/]+)/*$,$1,;
+ return $filename;
+}
+
+sub dirname {
+ my ($filename) = @_;
+ $filename =~ s,[^/]+/*$,,;
+ return $filename;
+}
sub parse_commands_file {
my ($filename) = @_;
@@ -400,7 +409,7 @@ sub write_dhmk_rules {
close($fh);
}
-my $COMMANDS_FILE = File::Spec->catfile(File::Basename::dirname($0), "commands");
+my $COMMANDS_FILE = dirname($0) . "/commands";
my $DHMK_RULES_FILE = "debian/dhmk_rules.mk";
my $RULES_FILE = "debian/rules";
--
Debian Qt/KDE packaging tools
More information about the pkg-kde-commits
mailing list