summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorrmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af>2008-06-14 20:48:34 +0000
committerrmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af>2008-06-14 20:48:34 +0000
commita611922a73d9826f49718a8c4ebcd0fa9a4dfb67 (patch)
treec1daf1bf1731eb7d9971f45694c17e67bf98b42b
parent6ed168ff814db8f9bcaad6f2e218fb2bbacbdb1c (diff)
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
-rwxr-xr-xbin/perload2
1 files changed, 2 insertions, 0 deletions
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;