docs

[code/myrepos.git] / mr

diff --git a/mr b/mr
index a5ff4de3c6e03955c5400a3fcbb146747bed5eec..e29e3679bd75aa9a11a9e2b44d1d9f286a65e63d 100755 (executable)
--- a/mr
+++ b/mr
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 #man{{{
 #!/usr/bin/perl
 
 #man{{{

+

 =head1 NAME
 
 mr - a Multiple Repository management tool
 =head1 NAME
 
 mr - a Multiple Repository management tool


@@ -38,7 +39,7 @@ working directory. Or, if you are in a subdirectory of a repository that
 contains no other registered repositories, it will stay in that directory,
 and work on only that repository,
 
 contains no other registered repositories, it will stay in that directory,
 and work on only that repository,
 

-The predefined commands should be fairly familiar to users of any revision
+These predefined commands should be fairly familiar to users of any revision

 control system:
 
 =over 4
 control system:
 
 =over 4


@@ -73,6 +74,12 @@ Show a diff of uncommitted changes.
 
 Show the commit log.
 
 
 Show the commit log.
 

+=back
+
+These commands are also available:
+
+=over 4
+

 =item list (or ls)
 
 List the repositories that mr will act on.
 =item list (or ls)
 
 List the repositories that mr will act on.


@@ -227,6 +234,7 @@ Licensed under the GNU GPL version 2 or higher.
 http://kitenet.net/~joey/code/mr/
 
 =cut
 http://kitenet.net/~joey/code/mr/
 
 =cut

+

 #}}}
 
 use warnings;
 #}}}
 
 use warnings;


@@ -525,8 +533,10 @@ sub loadconfig { #{{{
        close $in;
 
        my $section;
        close $in;
 
        my $section;

+       my $line=0;

        while (@lines) {
                $_=shift @lines;
        while (@lines) {
                $_=shift @lines;

+               $line++;

                chomp;
                next if /^\s*\#/ || /^\s*$/;
                if (/^\[([^\]]*)\]\s*$/) {
                chomp;
                next if /^\s*\#/ || /^\s*$/;
                if (/^\[([^\]]*)\]\s*$/) {


@@ -539,6 +549,7 @@ sub loadconfig { #{{{
                        # continued value
                        while (@lines && $lines[0]=~/^\s(.+)/) {
                                shift(@lines);
                        # continued value
                        while (@lines && $lines[0]=~/^\s(.+)/) {
                                shift(@lines);

+                               $line++;

                                $value.="\n$1";
                                chomp $value;
                        }
                                $value.="\n$1";
                                chomp $value;
                        }


@@ -570,7 +581,7 @@ sub loadconfig { #{{{
                        }
                }
                else {
                        }
                }
                else {

-                       die "$f line $.: parse error\n";
+                       die "$f line $line: parse error\n";

                }
        }
 
                }
        }
 


@@ -804,4 +815,5 @@ config =
 
 ed = echo "A horse is a horse, of course, of course.."
 T = echo "I pity the fool."
 
 ed = echo "A horse is a horse, of course, of course.."
 T = echo "I pity the fool."

+right = echo "Not found."

 #}}}
 #}}}