Promote Stable (10.47) to Super Stable

git-svn-id: http://svn.code.sf.net/p/netpbm/code/super_stable@2691 9d0c8265-081b-0410-96cb-a4ca84ce46f8

1 files changed, 2 insertions, 20 deletions

diff --git a/editor/ppmfade b/editor/ppmfade
index 9bd122e9..fbc62968 100755
--- a/editor/ppmfade
+++ b/editor/ppmfade
@@ -32,14 +32,7 @@ my $last_file = "undefined";
 my $base_name = "fade";		# default base name of output files
 my $image = "ppm";		# default output storage format
 my $mode = $SPREAD;		# default fading mode
-#
-#  Check those command line args.
-#
-sub usage();
 
-if (@ARGV == 0) {
-    usage();
-}
 
 my $n;  # argument number
 
@@ -49,7 +42,7 @@ for ($n = 0; $n < @ARGV; $n++) {
         $first_file = $ARGV[$n];
         if (-e $first_file) {
         } else {
-            print "I can't find $first_file\n";
+            print "I can't find first file '$first_file'\n";
             exit 20;
         }
     } elsif ($ARGV[$n] eq "-l") {
@@ -57,7 +50,7 @@ for ($n = 0; $n < @ARGV; $n++) {
         $last_file = $ARGV[$n];
         if (-e $last_file) {
         } else {
-            print "I can't find $last_file\n";
+            print "I can't find last file '$last_file'\n";
             exit 20;
         }
     } elsif ($ARGV[$n] eq "-base") {
@@ -298,14 +291,3 @@ for ($i = 1; $i <= $nframes; $i++) {
 system("rm junk*$$.ppm");
 
 exit(0);
-
-
-
-sub usage() {
-   print "Usage: ppmfade [-f first_file] [-l last_file]\n";
-   print "               [-spread|-relief|-oil|-edge|-bentley|-block]\n";
-   print "               [-base basename]\n";
-   print "Notes: Default base: fade\n";
-   print "       The resulting image files will be named fade.NNNN.ppm.\n";
-   exit(100);
-}