blob: 51f8ec47a23470ee1db8fff70697f076d9534143 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#! /usr/bin/perl
# $OpenBSD: inject-order,v 1.2 2019/08/20 11:03:05 espie Exp $
use warnings;
use strict;
# This script injects a specific order in the dependencies key to reproduce
# the cups bug
use OpenBSD::Dependencies;
package OpenBSD::Dependencies::SolverBase;
use Wrapper;
wrap('dependencies',
sub {
my $original = shift;
my $self = shift;
my @l = keys %{$self->{all_dependencies}};
my $v = 'ghostscript-9.07p7';
@l = ((grep {$_ ne $v} @l) , (grep {$_ eq $v} @l));
return @l;
});
1;
|
