This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reindent bash functions properly
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 27 Apr 2007 13:10:06 +0000 (13:10 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 27 Apr 2007 13:10:06 +0000 (13:10 +0000)
p4raw-id: //depot/perl@31101

pod/perlhack.pod

index 3d0878e..f684627 100644 (file)
@@ -528,18 +528,18 @@ Bourne shell script functions that can make your life easier:
     function edit {
        if [ -L $1 ]; then
            mv $1 $1.orig
     function edit {
        if [ -L $1 ]; then
            mv $1 $1.orig
-               cp $1.orig $1
-               vi $1
+           cp $1.orig $1
+           vi $1
        else
        else
-           /bin/vi $1
-               fi
+           vi $1
+       fi
     }
 
     function unedit {
        if [ -L $1.orig ]; then
            rm $1
     }
 
     function unedit {
        if [ -L $1.orig ]; then
            rm $1
-               mv $1.orig $1
-               fi
+           mv $1.orig $1
+       fi
     }
 
 Replace "vi" with your favorite flavor of editor.
     }
 
 Replace "vi" with your favorite flavor of editor.
@@ -549,15 +549,15 @@ files which have been edited in your symlink tree:
 
     mkpatchorig() {
        local diffopts
 
     mkpatchorig() {
        local diffopts
-           for f in `find . -name '*.orig' | sed s,^\./,,`
-               do
-                   case `echo $f | sed 's,.orig$,,;s,.*\.,,'` in
-                       c)   diffopts=-p ;;
+       for f in `find . -name '*.orig' | sed s,^\./,,`
+       do
+           case `echo $f | sed 's,.orig$,,;s,.*\.,,'` in
+               c)   diffopts=-p ;;
                pod) diffopts='-F^=' ;;
                *)   diffopts= ;;
                pod) diffopts='-F^=' ;;
                *)   diffopts= ;;
-               esac
-                   diff -du $diffopts $f `echo $f | sed 's,.orig$,,'`
-                   done
+           esac
+           diff -du $diffopts $f `echo $f | sed 's,.orig$,,'`
+       done
     }
 
 This function produces patches which include enough context to make
     }
 
 This function produces patches which include enough context to make