[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