PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: "W dot Phillip Moore" <wpm at ms dot com>
Subject: [PATCH] Suppress -w warning in Sybase::BCP
Date: Feb 23 1998 9:53PM

This trivial patch shuts up:

Odd number of elements in hash list at /ms/dist/perl5/lib/perl5/Sybase/BCP.pm line 398.

This is one of those warnings that got added to perl5 somewhere
between 5.002 and 5.004, and it causes a lot of old-style code to
whine.

Michael, can you please integrate this with the next release?

*** sybperl-2.09-orig/BCP/BCP.pm        Tue Dec 30 19:13:26 1997
--- sybperl-2.09/BCP/BCP.pm     Mon Feb 23 15:47:52 1998
***************
*** 402,408 ****
      my $batch_size = $self->{Global}->{BATCH_SIZE};
      my $null_pattern = $self->{Global}->{'NULL'};
      my $date_fmt = $self->{Global}->{DATE};
!     my %cols  = defined($self->{Cols}) ? %{$self->{Cols}} : undef;
      my $g_cb  = $self->{Global}->{CALLBACK};
      my $logger  = $self->{Global}->{LOGGER} || \&carp;
      my %reorder = %{$self->{Global}->{REORDER}} if(defined($self->{Global}->{REORDER}));
--- 402,408 ----
      my $batch_size = $self->{Global}->{BATCH_SIZE};
      my $null_pattern = $self->{Global}->{'NULL'};
      my $date_fmt = $self->{Global}->{DATE};
!     my %cols  = defined($self->{Cols}) ? %{$self->{Cols}} : ();
      my $g_cb  = $self->{Global}->{CALLBACK};
      my $logger  = $self->{Global}->{LOGGER} || \&carp;
      my %reorder = %{$self->{Global}->{REORDER}} if(defined($self->{Global}->{REORDER}));