diff options
author | mkanat%kerio.com <> | 2005-08-09 14:58:58 +0200 |
---|---|---|
committer | mkanat%kerio.com <> | 2005-08-09 14:58:58 +0200 |
commit | 42a0e99d5c916b4123719d7a362e12e65e15fc2f (patch) | |
tree | 4f93a13b5360e7621601384e04e70dc455ff0c46 /Bugzilla/DB.pm | |
parent | 51f0717b4285af69f22b635751b6f4a62d1f7da8 (diff) | |
download | bugzilla-42a0e99d5c916b4123719d7a362e12e65e15fc2f.tar.gz bugzilla-42a0e99d5c916b4123719d7a362e12e65e15fc2f.tar.xz |
Bug 303669: Bugzilla mis-uses perl subroutine prototypes
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=justdave
Diffstat (limited to 'Bugzilla/DB.pm')
-rw-r--r-- | Bugzilla/DB.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Bugzilla/DB.pm b/Bugzilla/DB.pm index 43c14a551..67cf4ae9c 100644 --- a/Bugzilla/DB.pm +++ b/Bugzilla/DB.pm @@ -128,12 +128,12 @@ sub FetchOneColumn { return $row[0]; } -sub PushGlobalSQLState() { +sub PushGlobalSQLState { push @SQLStateStack, $_current_sth; push @SQLStateStack, $_fetchahead; } -sub PopGlobalSQLState() { +sub PopGlobalSQLState { die ("PopGlobalSQLState: stack underflow") if ( scalar(@SQLStateStack) < 1 ); $_fetchahead = pop @SQLStateStack; $_current_sth = pop @SQLStateStack; @@ -153,7 +153,7 @@ sub connect_shadow { Param("shadowdbsock"), $db_user, $db_pass); } -sub connect_main (;$) { +sub connect_main { my ($no_db_name) = @_; my $connect_to_db = $db_name; $connect_to_db = "" if $no_db_name; |