summaryrefslogtreecommitdiff
path: root/.pc/0002-Fix-Build-Zypp-parsecfg-expected-full-config-file-na.patch/Build/Zypp.pm
diff options
context:
space:
mode:
Diffstat (limited to '.pc/0002-Fix-Build-Zypp-parsecfg-expected-full-config-file-na.patch/Build/Zypp.pm')
-rw-r--r--.pc/0002-Fix-Build-Zypp-parsecfg-expected-full-config-file-na.patch/Build/Zypp.pm52
1 files changed, 0 insertions, 52 deletions
diff --git a/.pc/0002-Fix-Build-Zypp-parsecfg-expected-full-config-file-na.patch/Build/Zypp.pm b/.pc/0002-Fix-Build-Zypp-parsecfg-expected-full-config-file-na.patch/Build/Zypp.pm
deleted file mode 100644
index bd0ced0..0000000
--- a/.pc/0002-Fix-Build-Zypp-parsecfg-expected-full-config-file-na.patch/Build/Zypp.pm
+++ /dev/null
@@ -1,52 +0,0 @@
-package Build::Zypp;
-
-use strict;
-
-our $root = '';
-
-sub parsecfg {
- my ($repocfg, $reponame) = @_;
-
- local *REPO;
- open(REPO, '<', "$root/etc/zypp/repos.d/$repocfg.repo") or return undef;
- my $name;
- my $repo = {};
- while (<REPO>) {
- chomp;
- if (/^\[(.+)\]/) {
- $name = $1 if !defined($reponame) || $reponame eq $1;
- } elsif (defined($name)) {
- my ($key, $value) = split(/=/, $_, 2);
- $repo->{$key} = $value if defined $key;
- }
- }
- close(REPO);
- return undef unless defined $name;
- $repo->{'description'} = $repo->{'name'} if exists $repo->{'name'};
- $repo->{'name'} = $name;
- return $repo;
-}
-
-sub parserepo($) {
- my ($reponame) = @_;
- # first try matching .repo file
- if (-e "$root/etc/zypp/repos.d/$reponame.repo") {
- my $repo = parsecfg($reponame, $reponame);
- return $repo if $repo;
- }
- # then try all repo files
- my @r;
- if (opendir(D, "$root/etc/zypp/repos.d")) {
- @r = grep {!/^\./ && /.repo$/} readdir(D);
- closedir D;
- }
- for my $r (sort @r) {
- my $repo = parsecfg($r, $reponame);
- return $repo if $repo;
- }
- die("could not find repo '$reponame'\n");
-}
-
-1;
-
-# vim: sw=2