diff options
| author | ivan <ivan> | 1998-11-21 07:26:45 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-21 07:26:45 +0000 |
| commit | 4173fc50a031252c5d8b12350b7f0f4ae472f975 (patch) | |
| tree | 9fa8346192ca19daa9042853c6b6f8a903d121f2 | |
| parent | a61af2c1c9245629ebf5077d8322dba054900dd2 (diff) | |
"Records identical" carp tells us it is just a warning.
| -rw-r--r-- | site_perl/Record.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/site_perl/Record.pm b/site_perl/Record.pm index 89793d2ad..b8d565cd9 100644 --- a/site_perl/Record.pm +++ b/site_perl/Record.pm @@ -409,7 +409,7 @@ sub rep { my(@diff)=grep $new->getfield($_) ne $old->getfield($_), @fields; if ( scalar(@diff) == 0 ) { - carp "Records identical"; + carp "warning: records identical"; return ''; } @@ -759,7 +759,7 @@ sub fields { =head1 VERSION -$Id: Record.pm,v 1.8 1998-11-15 11:02:04 ivan Exp $ +$Id: Record.pm,v 1.9 1998-11-21 07:26:45 ivan Exp $ =head1 BUGS @@ -878,7 +878,10 @@ added pod documentation ivan@sisd.com 98-sep-6 ut_phonen got ''; at the end ivan@sisd.com 98-sep-27 $Log: Record.pm,v $ -Revision 1.8 1998-11-15 11:02:04 ivan +Revision 1.9 1998-11-21 07:26:45 ivan +"Records identical" carp tells us it is just a warning. + +Revision 1.8 1998/11/15 11:02:04 ivan bugsquash Revision 1.7 1998/11/15 10:56:31 ivan |