[Libcvs-perl-cvs] libcvs-perl/VCS/LibCVS DirectoryBranch.pm

[Alexander Taler]

CVSROOT:        /cvsroot/libcvs-perl
Module name:    libcvs-perl
Branch:         
Changes by:     Alexander Taler <address@hidden>        06/04/13 02:18:25

Modified files:
        VCS/LibCVS     : DirectoryBranch.pm 

Log message:
        Update the printed message when attempting to create a DirectoryBranch
        on a non-branch tag.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/libcvs-perl/libcvs-perl/VCS/LibCVS/DirectoryBranch.pm.diff?tr1=1.12&tr2=1.13&r1=text&r2=text

Patches:
Index: libcvs-perl/VCS/LibCVS/DirectoryBranch.pm
diff -u libcvs-perl/VCS/LibCVS/DirectoryBranch.pm:1.12 
libcvs-perl/VCS/LibCVS/DirectoryBranch.pm:1.13
--- libcvs-perl/VCS/LibCVS/DirectoryBranch.pm:1.12      Thu Mar  9 13:26:05 2006
+++ libcvs-perl/VCS/LibCVS/DirectoryBranch.pm   Thu Apr 13 02:18:25 2006
@@ -29,7 +29,7 @@
 # Class constants
 ###############################################################################
 
-use constant REVISION => '$Header: 
/cvsroot/libcvs-perl/libcvs-perl/VCS/LibCVS/DirectoryBranch.pm,v 1.12 
2006/03/09 13:26:05 dissent Exp $ ';
+use constant REVISION => '$Header: 
/cvsroot/libcvs-perl/libcvs-perl/VCS/LibCVS/DirectoryBranch.pm,v 1.13 
2006/04/13 02:18:25 dissent Exp $ ';
 
 ###############################################################################
 # Class variables
@@ -83,7 +83,9 @@
     }
     # If it's a non-branch tag, guess the branch tag from one of the files
     elsif ($tag_type eq VCS::LibCVS::Datum::TagSpec::TYPE_NONBRANCH) {
-      confess "This code is broken.  See Issue 35";
+      print "DirectoryBranch creation from non-branch tags is not supported.  
";
+      print "See issue 14180.\n";
+      confess "Aborting";
     }
     # Revision sticky tags for directories are unlikely to correspond to a
     # single branch for all files in that directory, so throw an exception.