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