X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=util%2Frmold.pl;h=b7ddecf9b0f6623429475a3945906aa544745286;hp=f08deac1ef1551779152f2ce054b533bfa822e01;hb=2f6aa1d7417df1dfc58597777686fbd77179b9fd;hpb=caae3b70f46bd519857b595f7f06ea0179551336 diff --git a/util/rmold.pl b/util/rmold.pl index f08deac1..b7ddecf9 100755 --- a/util/rmold.pl +++ b/util/rmold.pl @@ -1,6 +1,7 @@ -#! /usr/bin/perl -w +#!/usr/bin/env perl -w -# Copyright (C) 1995, 1996, 1997, 2007, 2008 Free Software Foundation, Inc. +# Copyright (C) 1995, 1996, 1997, 2007, 2008, 2009, 2010, 2011 Free +# Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -45,7 +46,7 @@ sub procdir local(@lcfiles, @lcdirs, %files, @fl); print STDERR "Processing directory '$dir':\n" if $verbose; - + opendir(DH, $dir) || die("Cannot open $dir: $!\n"); @lcfiles = (); @lcdirs = ();