From a611922a73d9826f49718a8c4ebcd0fa9a4dfb67 Mon Sep 17 00:00:00 2001
From: rmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af>
Date: Sat, 14 Jun 2008 20:48:34 +0000
Subject: Panic if a routine is defined more than once.

git-svn-id: https://dist.svn.sourceforge.net/svnroot/dist/trunk/dist@26 190e5f8e-a817-0410-acf6-e9863daed9af
---
 bin/perload | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/bin/perload b/bin/perload
index e71cbdd..a0ed31c 100755
--- a/bin/perload
+++ b/bin/perload
@@ -117,6 +117,8 @@ while (<>) {
 			$fn_package = $current_package;
 			$fn_basename = $function;
 		}
+		die "line $.: duplicate routine ${fn_package}::$fn_basename\n"
+			if $Seen{"${fn_package}::$fn_basename"}++;
 		# Keep leading function comment
 		foreach (@Comment) {
 			push(@Data, $_) unless $autoload;
-- 
cgit v1.2.3