[PerlWikiBot] SF.net SVN: perlwikibot:[79] trunk/no-interwiki/tidy.sh

[<am...@us...>]

Revision: 79
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=79&view=rev
Author:   amire80
Date:     2009-09-26 10:51:33 +0000 (Sat, 26 Sep 2009)

Log Message:
-----------
Better diff.

Modified Paths:
--------------
    trunk/no-interwiki/tidy.sh

Modified: trunk/no-interwiki/tidy.sh
===================================================================
--- trunk/no-interwiki/tidy.sh	2009-09-26 10:42:51 UTC (rev 78)
+++ trunk/no-interwiki/tidy.sh	2009-09-26 10:51:33 UTC (rev 79)
@@ -1,26 +1,33 @@
 #!/bin/bash
 
-FN=$1
+FILENAME=$1
 
 echo checking syntax
-perl -c $FN
+perl -c $FILENAME
 if [ $? -ne 0 ]; then
     exit 1
 fi
 
 echo tidying
-perltidy $FN
+perltidy $FILENAME
 if [ $? -ne 0 ]; then
     exit 1
 fi
 
-diff $FN.bak ${FN}
-if [ $? -eq 2 ]; then
+diff $FILENAME.bak $FILENAME
+diff_exit_code=$?
+
+case $diff_exit_code in
+0)
+    rm $FILENAME.bak
+;;
+2)
+    echo trouble in diff after perltidy, exiting.
     exit 1
-fi
+;;
+esac
 
 echo criticizing
-perlcritic -brutal $FN
+perlcritic -brutal $FILENAME
 
 exit $?
-


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.