--- bin/GetSyncID	2000/12/21 14:27:11	1.1
+++ bin/GetSyncID	2003/08/05 09:20:08	1.2
@@ -1,4 +1,4 @@
-# -*- perl -*-
+#!/usr/bin/perl
 # GetSyncID
 # Vadim Mikheev, (c) 2000, PostgreSQL Inc.
 
@@ -6,7 +6,7 @@
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
-use lib "@LIBDIR@";
+use lib "/usr/share/postgresql/contrib";
 
 use Pg;
 use Getopt::Long;
@@ -37,6 +37,8 @@
 print("Connecting to '$sinfo'\n") if ($debug || $verbose);
 my $conn = Pg::connectdb($sinfo);
 
+$RServ::quiet = !$verbose;
+
 $res = GetSyncID($conn);
 
 die "ERROR\n" if $res < 0;