Check all '^Patch\d+' lines and '^%patch' lines are matching.

[nethome.git] / bin / shuffle

#! /usr/bin/perl
# $Id$

use strict;
use warnings;

print splice(@ARGV,int(rand(@ARGV)),1)."\n" while @ARGV;