blob: 6da8df189304b89f2a5f9aa1b639d07604ba2579 (
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
26
|
#! /usr/bin/perl
# $OpenBSD: inject-order,v 1.1 2019/07/09 10:48:30 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;
{
no warnings qw(redefine);
sub dependencies
{
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;
|
