diff options
| author | mkanat%kerio.com <> | 2005-08-13 21:27:03 +0200 |
|---|---|---|
| committer | mkanat%kerio.com <> | 2005-08-13 21:27:03 +0200 |
| commit | dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df (patch) | |
| tree | 9836708e345769706c774f799701aa5b40b02cc5 /Bugzilla/DB.pm | |
| parent | 71a6b9cf80cd368fd3fd69d673ddf10142763e59 (diff) | |
| download | bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.gz bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.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; |