From 1c459d805a75d0c1931d651c04df3ed01489d1c7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Jan 2008 16:42:17 +0000
Subject: add begins_with()

---
 urpm/util.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/urpm/util.pm b/urpm/util.pm
index 81534aa8..c6d51ea4 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -12,6 +12,7 @@ our @EXPORT = qw(min max quotespace unquotespace
     copy_and_own
     same_size_and_mtime
     partition put_in_hash uniq uniq_
+    begins_with
     difference2 member file_size cat_ cat_utf8 output_safe dirname basename
 );
 
@@ -128,6 +129,11 @@ sub partition(&@) {
     \@a, \@b;
 }
 
+sub begins_with {
+    my ($s, $prefix) = @_;
+    index($s, $prefix) == 0;
+}
+
 sub put_in_hash { my ($a, $b) = @_; while (my ($k, $v) = each %{$b || {}}) { $a->{$k} = $v } $a }
 sub uniq { my %l; $l{$_} = 1 foreach @_; grep { delete $l{$_} } @_ }
 sub difference2 { my %l; @l{@{$_[1]}} = (); grep { !exists $l{$_} } @{$_[0]} }
-- 
cgit v1.2.1