diff --git a/.hgtags b/.hgtags index 00a1376..be4af82 100644 --- a/.hgtags +++ b/.hgtags @@ -6,4 +6,5 @@ 27bbe75233a3da1482fededd7f67215bc716b2d5 1.0.0 0cc20d93ff50438fcb3fec864474b3cab492dd1a 1.0.1 94b64bbf93cfdfaf0ee68c54cd60bd85865fcb47 1.0.2 +e1728adb2561a87a3ab10e57ae4b3140abf4b5cf 1.1.0 1a480ba231b6ef7714a08151434b7773a1851936 1.2.0 diff --git a/shelldap b/shelldap index 878691d..6fb2105 100755 --- a/shelldap +++ b/shelldap @@ -145,6 +145,8 @@ credentials. =back +=over 4 + =item B A space separated list of SASL mechanisms. Requires the Authen::SASL @@ -655,7 +657,7 @@ sub ldif if ( $use_temp ) { my ( undef, $fname ) = File::Temp::tempfile( 'shelldap_XXXXXXXX', SUFFIX => '.ldif', DIR => '/tmp', UNLINK => 1 ); - $self->{'ldif'} = Net::LDAP::LDIF->new( $fname, 'w', sort => 1, wrap => 0 ) + $self->{'ldif'} = Net::LDAP::LDIF->new( $fname, 'w', sort => 1, wrap => 0 ); $self->{'ldif_fname'} = $fname; } @@ -1587,6 +1589,7 @@ sub run_edit } close LDIF; } + # checksum it, then open it in an editor # my $hash_orig = $self->chksum( $self->{'ldif_fname'} );