X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Ffix-image-sizes.pl;h=78e41a4a16732a8bff0d3dc5f623da416e981a46;hp=dc8f55f3bae80b68f36e0c77f590d36c9e6acb04;hb=d39e4e3df972ecf68b385d779ca88b846086f0a9;hpb=f4bdee5083ca9a72713637e1e979aa183e06faea

diff --git a/common/scripts/fix-image-sizes.pl b/common/scripts/fix-image-sizes.pl
index dc8f55f..78e41a4 100755
--- a/common/scripts/fix-image-sizes.pl
+++ b/common/scripts/fix-image-sizes.pl
@@ -1,11 +1,13 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
+use warnings;
 use strict;
 
 use File::Spec;
 use Image::Size;
 
-my $USAGE = "typical usage:\timage-size.pl *.png <input.xml >output.xml\n";
+my $PROG_NAME = 'fix-image-sizes.pl';
+my $USAGE = "typical usage:\t${PROG_NAME} *.png <input.xml >output.xml\n";
 die $USAGE if $#ARGV < 0;
 
 my %image_widths = ( );